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at the top of the lattice. At the bottom of the lattice, procedures handle the detailed 
requirements for the identified hazard and source. This structure allows for future 
additions to or revisions of the methods of combating emergencies. The program 


Emergency has laid some valuable groundwork for a prototvpe aboard a Naval ship. 


THESIS DISCLAIMER 


The reader is cautioned that the computer program developed in this research 1s 
only a prototype and may not have been exercised for all cases of interest. Many 
potential aspects of the the operation of installed damage control systems are not 
addressed by this program. While every effort has been made, within the time 
available, to ensure that the program 1s free of computional and logic errors, it cannot 
be considered validated. Any application of this program without additional 


verification is at the risk of the user. 
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I. INTRODUCTION 


With the every increasing tendency toward the use of advanced and sophisticated 
equipment aboard ships in the US Navy it has become a problem maintaining expertise 
aboard the ships to operate them. Naval ships are provided with the most modern and 
effective types of fire fighting equipment it is practical and economical to use [Ref. 1: p. 
175]. Installed damage control systems aboard modern, large ships can be very 
extensive and complicated. The operating environment of most U. S. Naval ships 
provides many opportunities for damage to occur to the ship and/or personnel. The 
installed systems aboard commercial ships and in large buildings have also gotten more 
complex and are understood by very few personnel. The ability to combat casualities 
in the most effective manner 1s essential to limit the damage to a ship or a building and 
to protect the personnel present. Proper use of the available installed damage control 
equipment is usually the most effective method to combat an emergency on a ship or 
in a building. 

It is almost impossible for an individual to become an expert in all the various 
damage control systems. By the time the person is proficient in one or two major 
systems, he is ready for transfer or has reached the end of his obligated service. The 
locations of the controls and the valves of the installed damage control systems vary 
greatly on different ships. Personnel are not routinely assigned to the same class of 
ship when they are detailed for sea duty. Adequate training of shipboard personnel in 
the proper methods of handling emergency situations is an essential, but difficult 
requirement. Training should be done by the most competent damage control 
personnel available. Unfortunately the best people often are assigned other duties 
which greatly constrains their ability to take time to train others. Another element of 
training that is more difficult to teach is familiarity with the ship’s layout and being 
able to find and operate the various systems on board [Ref. 2: p. vi]. Instead of 
attempting to teach personnel to become experts in the location and operation of the 
installed systems, it 1s proposed to develop an expert system to provide this 
information to the user. 

An expert system uses some method of reasoning to eliminate bad choices and to 


determine the best course of action to acheive a goal. Expert systems use information 


in an “intelligent” way to perform some task that is normally associated with human 
experts. Theré are many possible emergencies aboard a ship and there are many ways 
to combat them. Human experts in installed damage control systems aboard Naval 
ships are difficult to find or train. Some method to determine the best course of action 
for the given set of emergency conditions is needed. An expert system would be 
applicable for this use. 

Numerous expert systems for many different applications have been developed 
and are in use today. DENDRAL is an expert system used by research chemists 
throughout the United States that identifies candidate molecular structures from mass 
spectral and nuclear magnetic data [Ref. 3: p. 51]. MACSYMA 1s a system used 
extensively by scientists and engineers to provide solutions for a variety of 
mathematical problems, such as algebraic simplification and integration [Ref. 3: p. 52]. 
MYCIN provides guidance in diagnosis and therapy in certain classes of infectious 
blood diseases [Ref. 3: p. 53]. CADUCEUS is a medical consultation system that 
attenipts to make a diagnosis in the domain of internal medicine [Ref. 3: p. 40]. 
PROSPECTOR is an expert system that provides probabilistic interpretation of soil 
and geological data [Ref. 3: p. 54]. PROSPECTOR’s performance is comparable to 
that of expert geologists. All of these systems enhance man’s ability to make decisions 
after evaluating the many possible alternatives. The problem of providing assistance to 
personnel in the operation of installed damage control systems is similiar to some of 
the problems already solved with an expert system. It should be possible to develop an 
expert system to assist personnel in the identification and operation of installed 
equipment on a ship or in a building. This study will consider installed damage control 
systems on Naval ships. 

This study discusses the design issues and the implementation of an expert system 
to provide guidance on the use of installed damage control equipment. This expert 
system, a prototype expert damage-control-guidance system, will be called Emergency 
in this study. The purpose of this thesis is to demonstrate that a computer program, 
designed as a type of expert system, to guide personnel in the operation of installed 
damage control systems is possible. In the event of a medical emergency, the program 
Emergency provides emergency first aid instructions and personnel casualty 
transportation precautions. In the event of a fire, flooding, or fumes, it provides a 
listing of berthing compartments to be evacuated and also a list of fittings and their 


location to be closed to set the primary boundaries. [t will provide procedures to 
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determine the source of the hazard and provide safety precautions for the identified 
hazard. It lists the identification number and location of control devices to operate 
appropriate installed damage control equipment. It provides instructions on the proper 
and safe operation of the installed equipment to combat and eliminate the given 
hazard. The program also provides the proper procedures and tests to recover from the 
emergency. 

Chapter II provides background on the typical damage control organizations 
aboard U. S. Naval ships. This includes how personnel are assigned to emergency 
teams, how personnel are trained, and the limitations of the current organization. 
Chapter III discusses the design and implementation of Emergency. There are some 
similarities between the methods used in handling the various kinds of emergencies, but 
each emergency also has the possibility of having some unique requirements depending 
on the location of the emergency in the ship. The control structure for the program 
must be able to make branching decisions to accomplish the detailed procedures for 
handling the emergency. Because of the need for branching from general to more 
detailed procedures, a design structure very similiar to a decision lattice was used. This 
type of design structure allowed the program to initially treat each emergency in the 
Same general manner before implementing the detailed procedures associated with the 
identified hazard and source. Chapter IV provides a discussion of the methods of 
using, refining, and expanding Emergency for use aboard Naval ships. Chapter V 
contains the conclusions of the research effort involved in developing the prototype 
program. This section also discusses the limitations and and weaknesses of Emergency 
as well as the benefits. Appendix A is a user session listing demonstrating how 
Emergency handles medical emergencies. Appendix B is a user session listing 
demonstrating how Emergency handles a fire in a berthing compartment. Appendix C 
is a user session listing demonstrating how Emergency handles a main machinery room 


fire. Appendix D is a listing of program Emergency. 


1] 


Il. BACKGROUND 


A. SHIPBOARD DAMAGE CONTROL ORGANIZATION 

A Naval ship contains many potential hazards and can be a dangerous place 
under certain conditions. Emergencies such as fire, flooding, or fumes can occur at 
almost any time underway or inport. The most common shipboard emergency is fire. 
For this reason ships organize their primary emergency response team as a fire party. 
An emergency response team is a group of personnel from the ship that can perform a 
wide variety of tasks. The team would be made up of people with different talents that 
could be combined to combat emergencies. A ship must determine the availability of 
men and materials and design an organization for the emplovment of men and 
equipment to combat fires and other emergencies. Specific responsibilities, duties, and 
employment of equipment must be prepared and assigned to certain individuals, 
divisions, or departments. This information is put into a comprehensive and intelligible 
form called a “Fire Bill” and made available to all personnel addressed in the document. 
Standard ships’ Fire Bills, established by each Type Commander and set forth in Type 
General Organization Books, are used as a guide by ships concerned [Ref. 4: p. 75]. 
The purpose of the Fire Bill is to establish a fire fighting organization and specify 
certain responsibilities for individuals and departments to ensure that fires and other 
related emergencies are effectively and quickly handled. 

When the ship is underway, a special team is normally assigned to combat fires 
and other emergencies. The name of the unit, such as Fire Department, R-Division 
Flying Squad, etc., might vary from ship to ship, but the purpose is to provide a 
coordinated team of personnel well trained in firefighting and damage control that can 
respond quickly in an emergency. Most of the personnel assigned to this team are 
normally from the engineering ratings. Personnel in the engineering ratings work with 
the equipment that powers the ship. These personnel could be electricians, machinists, 
welders, pipefitters, boiler technicians, and others that work with their hands in a 
technical area. These personnel tend to have a good knowledge of general damage 
control procedures, but they are not particularity familiar with the location of all the 
installed damage control systems outside the engineering spaces where they work to 


maintain the propulsion plant and ship’s service equipment such as electrical 
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ey 


generators. The engineering spaces are usually on the lower decks of a ship. 
Underway the Damage Control Assistant and senior damage control personnel will be 
available in Damage Control Central to provide what information is available from the 
damage control charts and manuals. The damage control charts and manuals in 
Damage Control Central contain all the information about all the ship’s svstems and 
all the compartments. A compartment, or space, on a ship is like a room or a corridor 
in a building. It has definable boundaries and is distinct from the surrounding spaces. 
The charts that show the compartments and installed systems are difficult to read 
because of the small print and the large volume of material on a single chart. Because 
of the small spacing, lines connecting the systems between compartments can be 
difficult to trace. Finding the watertight and/or flametight fittings to close in the event 
of a fire or flooding is also the responsibility of the personnel in Damage Control 
Central. The fitting are needed to set a complete firetight or watertight boundary at a 
single frame from one side of the ship to the other, both forward and aft of the 
emergency. These fittings can be doors, hatches, scuttles, or ventilation duct fittings. 
Some of the appropriate fittings can be easily missed when looking at a chart with 
hundreds of fittings. This information can take some time to determine from the 
manuals and charts. Once the required information is obtained, it is passed to the On- 
scene leader via the sound powered phone talker. 

Fires or emergencies that occur during combat or while the ship is at general 
quarters should be handled as battle casualties by the Repair party organization in that 
section of the ship. The area covered usually extends from the damage control deck, 
normally the second deck, down to the keel, or bottom of the ship. Repair party 
personnel should be familiar with their area. In large ships, such as aircraft carriers, the 
area can become quite large. There is also a tendency for a large turnover of personnel 
assigned to repair parties. Therefore repair party personnel in many cases are not 
familiar with the location of all installed damage control equipment in their assigned 
area. This information is usually obtained from the damage control charts and manuals 
in the repair locker. 

“The In-Port Fire Party shall be composed primarily of personnel in the regular 
damage control repair parties, each duty section having an effective fire fighting force” 
[Ref. 4: p. 75]. A typical Inport Fire Party aboard an aircraft carrier will consist of 
thirty men. If the ship has the normal six section inport watch rotation, this would 


result in 180 people in the Inport Fire Party organization at any given time. These 180 
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people, plus a number of alternates in the event of leave, schools, etc., have to be 
trained in their specific job and to work as a fire fighting team. “The time to train an 
individual in both general damage control and for a specific job on a fire team can take 
up to eight months depending on the individual’s motivation and learning ability” 
[Ref. 5: p. 15]. It 1s almost impossible to train a significant number of personnel on the 
Inport Fire Parties on the location and operation of all the installed damage control 


systems. 


B. SHIPBOARD DAMAGE CONTROL TRAINING ENVIRONMENT 

The rapid increase in complex systems aboard Naval ships has made the damage 
control training task more difficult. Since crew members have to be proficient in the 
skills of their rating, damage control training will usually not have a high priority in the 
allotment of training time. The exercises that are held on board most ships only keep 
the members of the repair party organization familiar with general damage control 
procedures. By the time an individual crew member is familiar with the installed 
damage control systems on board the ship, he is ready for rotation or has reached the 
end of his obligated service. The general damage control knowledge that a crew 
member acquires and retains will be valuable for his future assignments. The 
knowledge acquired about installed systems is not as readily applied to future 
assignments since there is a great difference among ship classes as to the location of 
the control devices. The operating procedures for a given damage control system ts the 
same or very similar for all ship classes. The procedures however can be very complex 


and it is difficult to memorize and retain a working knowledge of all of them. 
C, ve eos TO AUGMENT THE KNOWLEDGE OF THE ON-SCENE 


The key individual at the scene of an emergency is the on-scene leader. He must 
effectively coordinate the efforts of his fire party. LT. Stephen G. Weingart developed 
an Intelligent Computer Aided Instructional computer program to help train Fire 
Team leaders [Ref. 5: p. 21]. The use of Intelligent Computer Aided Instruction 
(ICAI) is a possible way to greatly improve the quality of training to handle damage 
control and emergency situations [Ref. 5: p. 21]. ICAI can be of great benefit in 
training personnel in general damage control and emergency procedures. The author, 
LCDR Gogel, prepared a study that focused on the development of an expert system 


that provides guidance to the on-scene leader in the proper utilization of the ship’s 


eye 


installed damage control equipment. The system would be extremely beneficial to the 
on-scene leader of the inport fire party, but would also be very valuable to the 
underway fire fighting organization. In the event of a battle casualty to the on-scene 
leader, the expert system could greatly assist an inexperienced on-scene leader take over 
the task of combating an emergency. This program is not a training system for the on- 
scene leader like LT. Weingart’s program, but rather it is a tool to provide information 
that can be used by the on-scene leader. After several uses of the program the on-scene 
leader might learn all the detailed procedures for that situation. However, training 1s 
not the primary reason for this program. The primary purpose of the program 1s to 
provide an expert source of information on the operation of installed damage control 
systems. 

Microcomputer systems that can store and retrieve large amounts of data in an 
accurate and rapid manner are becoming commonplace. “Computers have been 
proposed for use in the damage control organization to solve such problems as list 
removal, free surface effect, counterflooding, relocation of centers of buoyancy and 
gravity, and trim” [Ref. 2: p. 131]. A microcomputer with a database of information as 
to the proper number and the location of installed damage control systems would be 
an extremely valuable tool to augment the knowledge of the on-scene leader. The user 
would only have to enter information about the emergency in progress. The knowledge 
of the ship’s systems and the proper procedures to operate them would be in the 


program or data base. 
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if. EMERGENCY: A DAMAGE CONTROL GUIDANCE SYSTEM 


A. PROGRAM DESIGN CONSIDERATIONS 

The problem of assisting the on-scene leader in the proper operation of installed 
damage control equipment was evaluated for the types of emergencies that could be 
anticipated. The author of this study has been involved in all aspects of damage control 
aboard aircraft carriers. That experience and the guidance of the appropriate Naval Sea 
Systems Technical Manuals were used in evaluating the needs of the on-scene leader to 
combat an emergency. It was determined that at the beginning most emergencies 
require similar courses of action. Emergencies can be divided into the major areas of 
injury to personnel or damage to the ship. Emergencies are reported at a given location 
using the ship’s compartment numbers. Figure 3.1 shows how the report of an 
emergency should be initially evaluated. If the emergency was a personnel injury, it 
should be handled as shown in Figure 3.2 . If the emergency was a fire, flooding, or 
fumes, many similar actions should take place. Boundaries should be set to contain the 
fire, flooding, or fumes to one area of the ship. The source of the emergency should be 
determined. The source or cause of the fire, flooding, or fumes should be eliminated. 
Procedures to recover from the emergency should be initiated. Figure 3.3 shows the 
sequence of actions that need to be taken in the case of a fire, flooding, or fumes. The 
details of the actions would vary depending on the type of emergency. 

Even though many of the basic procedures for handling emergencies are the 
same, there are a large number of possible combinations of hazard types and sources. 
The methods of handling emergencies will vary depending on the location in the ship 
and what installed svstems are available. A library of procedures for different cases 
would not be practical due to the large number of possible cases that would have to be 
covered. An expert system that, for specific hazards, can determine the applicable 
segments of general procedures was needed. 

A compiled program was desired for efficient operation of the program on a 
microcomputer on various ships at sea. “Compilers take a program in an easy-to-read 
but slow-to-execute form and convert it to a more efficient one” (Ref. 6: p. 95]. 
“Compilation techniques can also make many kinds of artificial intelligence programs 


more efficient” {Ref. 6: p. 95]. It was essential that the program be as general as 


Emergency discovered 
at a given location 


Is 
the nature 
of the emergency > 
known emergency 


Damage to aap 


Injury to personnel 
(Medical ) 





Figure 3.1 Initial evaluation of a report of an emergency. 


possible and use common procedures where applicable. Good programming design was 
desired also for ease of maintaining and improving the program. The use of a decision 
lattice was considered as a possibility. A decision lattice would permit a restricted but 
efficient form of forward chaining. 

The prototype program was designed using a top-down stepwise refinement 
methodology. The overall design was a type of decision lattice structure with some 
global variables to pass the type and the source of the hazard. The program was 
designed to obtain the data about the installed systems aboard the ship from disk files. 
Information on the type and location of the emergency is to be entered at the terminal 
keyboard. Case structures, as shown in Figure 3.4, are used to make decisions as to the 
next recommended course of action to present to the user. When the program cannot 
resolve a question by inference from what it already knows, it asks the user to provide 


information that it needs. This information is used with information about the 
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Figure 3.2 Procedure to handle a personnel injury. 
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Figure 3.3 Sequence of actions in the event of damage to the ship. 


compartment where the emergency is located to determine the best recommendations 


to pass to the user. 


B. EMERGENCY SYSTEM: DESCRIPTION OF OPERATION 
Emergency is a program in which the typical user is a sailor on duty, or in Naval 
terms standing a watch, in Damage Control Central who must pass information to the 


On-Scene Leader at the scene of an emergency. Even on larger ships, some of these 
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case needrec@.instalsystems of 


6: begin. 
if hazsource = | then . 0 ne 
writeln(‘Use fire station to combat class “A” fire’, 
if possible .’); 
if hazsource = 4 then. 
writeln(’'Use CO2 if appropriate to’, 
SxUMeuish theclass 1) fire. }: 
PN eI 
end, (= 307") 


7: begin 
e writeln(’ Use the HALON system if the fire is out’, | 
of control or great’); 
writeln(’ hazards to personnel are involved in, 
trying to combat the fire .’); 


ethalon(needrec), 
sit (el) 


10 : if hazsource_< 3 then 
getafffhr(needrec); 


ll: begin | , , 
writeln(’ The compartment contains various , | 
firefighting systems. ’); 

if hazsource =. 4 then on. 2 | 

writeln(’ Use TAFES to extinguish class “D” fire’, 
if appropriate.’): 

if hazsource < > 3 then 

ee Celiales(meedtec): 

if hazsource < 3 then 

getafffhr(needrec); 
ethalon(needrec); 


end; (* case instalsystem of *) 





Figure 3.4 Example of a case structure. 


watchstanders lack the experience to obtain the proper information in a timely manner 
to pass on to the On-Scene Leader. The program Emergency provides that assistance 
and guidance. 

Emergency is designed to start with the report of an emergency at a given 
location on the ship. This is how an emergency response would start on board an 
actual ship. The author used his years of experience in damage control aboard ships, 
including aircraft carriers, to design the order of actions that need to occur to combat a 
given emergency. The procedures to follow in combating the emergencies were 


obtained from experience and from guidance from Naval Sea Systems Command 


I 


Technical Manual, Chapter 079 [Ref. 1], and Naval Sea Systems Command Technical 
Manual, Chapter 9930, Firefighting Ship [Ref. 4]. For this prototype implementation, 
the user is provided a listing of the ship’s compartments. This option gives the user a 


list of valid compartment numbers as shown in Figure 3.5 to test the program. After 


The Following Compartments will work as input for the program: 
Compt. number Compt. Use Installed Systems 


Q1-50-3-L Berthing Compartment None 
Q2-50-3-L Passagewavy None 
j-- Control Space Ione 
Workcenter Drv Standpipe Spk 
Passageway None 
Workcenter CO2 Hose Reel 
Admin. Space None 
Head Space None 
Repair Locker None 
Passagewavy None 
Galley Space None 
Galley Space Dry Standpipe Spk 
W orkcenter None 
Wardroom/ galley None 
Passagewav None 
Admin Space None 
Medical Space None 
None 
Exhaust Fan 
Berthing Compartment None 
Head Space Exhaust Fan 
ey) None 
Berthing Compartment None 
Cominuter Space Installed Eductor 
Storeroom Drv Standpipe Spk 
AMMO Magazine Active Sprinkler Sys 
Control Space N 
Passageway None 
Storeroom Exhaust Fan 
AMMO Magazine Active Sprinkler Sys 
Storeroom | Drv RIOR Sek 
Main Machinery Room ALON, TAU, CO2sniR 
\Viain Machinery Room TAU, CO2 HR 
Flammable Storeroom ding 
Pump Room #1 and. CO2qnik 
Storeroom pipe Spk 
Pump Room #2 : and CO2 HR 


MEMS MNS <bOIEMTOT TET COT ROTO ROO 


| 
PHI OE BEDE HD EN NWDHN OMNI DHD = by 


C022 WION L.WIGI 00 COC UID. OC ~~ INDI ORCA ONG EB 22 WWIII 
8 8 8 8 2 8 OS FF PFE EEE SE 


0) 
2 
2 
2 
ps 
2 
Z 
2 
2 
uv 
ji 
Z 
Ds 
2 
2 
3 
3 
3 
3 
3 
3. 
a 
4 
4 
4 
4 
4 
5 
5 
5 
5 
6 
6 
6 
6 





Figure 3.5 List of possible Compartments for Emergency. 


the compartment number is entered, the user is queried if the nature of the emergency 
is known. If unknown, the program provides some guidance as to how to determine the 


nature of the emergency. Once the nature of the emergency is known the user selects 
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one of the four types of emergencies from a menu shown in Figure 3.6 . The emergency 
will be either a personnel injury or some damage or danger to the ship and personnel. 
A global variable, haztype, is set to either fire, flooding, fumes, or personinj depending 
on the number Selected. This global variable is used to determine how the program will 
execute the details of the common procedures to accomplish the required actions for 


the specified hazard. 


What is the nature of the emergency or problem ? 
Enter the appropriate number below: 


eee 

Flooding 

Fumes 

Injury to personnel 


Bwh 





Figure so amienw for the user to Select the type of emergency. 


If the emergency is a personnel injury, the user is asked to enter the type of 
injury from a list of possible injuries shown in Figure 3.7 Using the inputted type of 


injury, the program will provide the user with recommendations for emergency first aid 


What tvpe of medical emergency has occurred ? 
Enter the appropriate number below : 


fvead Injury. | 
Back or neck Injury 
External Bleeding 
Internal Injury 
Broken Leg 

Broken Arm 
Severed Limb 
Serious Burns 
Inhalation of Fumes 
Electrical Shock 
Drowning 
Unknown Illness 


Pm cD OOOMNID UN BW 





Figure 3.7 Menu to select type of Injury or Illness. 
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and precautions for the safe transportation of the casualty to the ship’s sick bay. 

If the emergency is fire, flooding, or fumes the user is presented with a list of 
berthing compartments, if applicable, to be cleared. The compartments are determined 
by checking the use code in the compartment records of all compartments in the same 
zone or adjacent zone to the compartment that has the emergency. If the use code is 
for a berthing space the compartment is listed. The user is then given the location and 
number of the electrical panel and the ventilation controller to secure the power and 


ventilation to the space. The user is then presented with a list of water-tight and fume- 


Set the following Boundaries to contain the Hazard: 


Fitting No. WITH 4-37-3 located at 4-37-1- 


Fitting No. WID 4-37-1 located at 4-37-1- 
Fitting No. WTS 4-39-1 located at 4-37-1- 





Figure 3.8 Notice of Boundaries to be set. 


tight fittings, as shown in Figure 3.8, to close to isolate the hazard to one area of the 
ship. If the source of the emergency is not Known, the user 1s given suggestions as to 
some possible sources in the area, compartments to check, piping systems to consider, 


and tests to conduct. The user is presented with safety precautions for the identified 


ESC Sulfide is highly toxic. All personnel who 
might 


e exposed in the course of finding and eliminating 
the source of the fumes should use breathing devices. 





Figure 3.9 Example of a Safety Precaution. 


hazard. Figure 3.9 shows an example of a typical safety precaution. If no appropriate 
installed damage control systems exist, the user is given recommendations on what 
portable equipment to use. If installed systems are appropriate for the emergency, the 
user is presented with a list of the control devices and their location. An example for a 


HALON system is shown as Figure 3.10 . Operating instructions and_ safety 


yap 


_ 


The compartment’s HALON Actuators are as follows: 


Actuator act# 4-40-2 located 4-40-0-C FR 42 P 
Actuator rmact# 2-40-1 located 2-40-1-Q FR 40 P 





Figure 3.10 Fitting locations fora HALON System. 


precautions for the installed equipment are then presented. An example for an installed 
HALON system is shown in Figure 3.11 . In the event of fumes or when a fire is 


extinguished, recommended atmosphere tests are presented. In the event of a fire, when 


Before operating the installed HALON system , all supply 
and exhaust vent dampers should be closed if possible, 
and all fans serving the space secured. All personnel 


should be out of the space or in the process of leaving 
the space. To activate the HALON system use the given 
local or remote pneumatic actuators 





Figure 3.11 Operating Instructions fora HALON System. 


the fire is overhauled additional tests and recovery procedures are then presented to the 
user. If needed and appropriate, contro] devices and their location are given for the 
operation of installed ventilation and dewatering equipment. If there are no installed 
ventilation or dewatering systems in the compartment, the program will provide 


suggestions on what portable equipment to use. 


C. DATA STRUCTURES 

The problem of how to access the large amount of possible data concerning the 
compartments on the ship was studied. For efficient operation the program should not 
be spending a lot of time obtaining data on the compartment or emergency in 
question. The required information needs to reside in memory in a data structure that 
allows quick access to any required record. The method by which compartments are 


numbered on board ship does not lend itself to the sequential use of compartment 
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numbers to find particular data. The use of one large record per compartment that 
contained all possible data about that compartment was considered. A large ship has 
many compartments and very few, if any, contain all of the various damage control 
equipment. In fact most compartments do not contain any installed damage control 
equipment. Some of the data required for a compartment such as electrical panel 
controlling the power and the ventilation controller controlling the supply ventilation is 
the same for a number of compartments in the area. For each record to contain a field 
for a control number and location for each type of installed equipment would be 
wasteful and inefficient. The use of record variants was considered [Ref. 7: p. 330]. 
Since most of the ship's compartments do not have any installed damage control 
equipment, it was decided that this would still be inefficient. Some compartments do 
contain more than one type of installed damage control equipment. It was decided that 
several different data structures were needed. A record for each compartment on the 
ship was required to store and retrieve certain critical information to isolate and 
contain the emergency. The location of electrical power panels to secure electrical 
power, vent controllers to secure supply ventilation, and the fitting numbers and their 
location aS appropriate are needed as soon as the location of the emergency is 
identified. Some of the data required, such as fittings to close to set boundaries, is quite 
extensive and is the same for a number of compartments. Boundaries are located at 
frames in the ship where a watertight or flametight bulkhead extends across the entire 
width of the ship from port to starboard. To design the program, all compartments, on 
the same deck or level, that are between two sets of boundaries are considered to be in 
the same zone. The boundaries to prevent the spread of the hazard would be the same 
for all compartments in the zone. It was decided to use a code number for all systems 
that cover more than one compartment. Figure 3.12 shows the codes for the piping 
systems that could be present in a compartment. There are addition possibilities for 
piping systems aboard a ship, but for the purposes of this prototype program only 
these combinations were considered. Codes were also developed for the types of 
compartment on the ship as shown in Figure 3.13 . Codes for the considered installed 
damage control systems are shown in Figure 3.14. 

In order to find such data as what berthing areas to clear, compartments to 
check to determine source of hazard, etc., an ability to find information about 
compartments in the vicinity of the emergency was necessary. To be efficient a method 


to limit the search of the records of the compartments was needed. By organizing the 
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Piping Code # Type of Piping System or systems 


Fire main 

Freshwater 

Fire main and Freshwater 
Chilled Water 

Soil Drain 

Plumbing Vent . 

High Pressure Air 
Fuel Oil 
Fire main and Fuel Oil 
Fuel Oil and Soil Line 
Hydraulic Oil 

Multiple Systems 


NI OOo IAN RWNHO 





Figure 3.12 Codes for Piping Systems. 


Use Code # Use of Compartment 


Admin space 

Berthing Compartment 
Passageway 

Head space 
Workcenter. 

Main Machinery Room 
Boiler Room 

Pump room 
Emergency Generator 
Commnunuter space 
Galley space 
Storeroom 
Flammable storeroom 
Fuel tank 

Water tank 

Void 

Access Trunk 

Control space 

Fan Room 

Repair Locker. 
Hazardous materials 
AMMO Magazine 
Medical Spaces 


Jig 
Jig 
a 
a 
53 
6: 
shes 
& : 
9: 
OE 
hse 
V bp 
ao: 
q: 
ee 
6: 
a 
8: 
9: 
QO: 
1: 
2: 
a4 


I 
I 
I 
I 
I 
I 
I 
I 
I 
| 
2 
i 
ji 
Z 





Figure 3.13 Codes for Compartment Use. 
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Installed System or Systems 


[ONE 
Installed eductor 
Installed exhaust fan 
Active sprinkler system 
Drv_standpipe sprinkler 
CO2 Flooding system 
2 Hose Reel * 
ALON 
vin Agent eee or TAFES 
F Sprinkler 


FES 
“EE tose Weel 
iy} TAU, and CO2 Hose Reel 


O* 
F HR and CO? Hose Reel 


PaO 


Ou 
1 
De 
Bey 
4: 
ae 
6: 
i oe 
Sy: 
9: 
QO: 
l: 
ae 


oe 
= 





Figure 3.14 Codes for Installed Damage Control Systems. 


records of compartment data in a linked list of records, compartments in the same zone 
were kept together. All the records for the compartments on a deck or a level are in a 
single linked list. The linked lists are in an array by deck or level. The desire to make 
the user's entry format for the ship’s compartment number as close to the actual 
compartment number as possible, had a great impact on the design of the data 
structure for the compartment records. Decks on a ship are numbered |, 2))3yueue 
Starting at the main or highest complete deck on the ship and going down thru the 
lowest deck at the Keel. For this prototype program the 6th deck is at the keel. Levels 
above the main deck are labeled 01, 02, etc. up to the highest level on the ship. The 
program needs to handle the deck or level number as an integer in order to find the 
required information on a given compartment and to determine what compartments, if 
any in the area might need to be evacuated. Since an 01 and a 1 would both be 
interpreted as the integer 1, a boolean field in the compartment record 1s set to indicate 
if the compartment is above the main deck. A separate array of linked lists of records is 
used for the compartments above the main deck and another array of linked lists of 
records is used for the compartments on the main deck and below. This allows the 
program to access the right compartment. 

The records for the compartments contain fields for the detailed location of the 
compartment, codes to secure the power and ventilation, code for what Zone it 1s in, 


code for the use of the space, a code for the piping systems that pass through the 
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space, and a code for the installed systems, if any, in the space. By checking the 
appropriate fields in the record of the compartment where the emergency is located, the 
program can determine what systems are present and what the space is used for. In the 
event the compartment has more than one installed damage control system, the 
program: recommends the most appropriate system for the given emergency. The 
program has the ability to identify all other compartments in the same zone as the 
emergency. It can determine if there are certain types of compartments that could be 


dangerous with the given emergency in the area. 
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IV. USING THE EMERGENCY SYSTEM ON US NAVY SHIPS 


A. MEMORY REQUIREMENTS 

To use the Emergency system on a microcomputer aboard US Naval Ships, the 
memory requirements for the system’s files must not be excessive. Emergency was 
developed on a COMPAQ Deskpro computer with 640K of memory and a 10 MB 
internal hard disk drive. The program Emergency and the prototype data files all fit on 
a standard 5.25 inch, one-sided, double density floppy disk. Emergency uncompiled 
takes 82K bytes of disk space and compiled takes 47K bytes. For the prototype 
program the data files consume approximately 8K bytes of memory. The prototype 
data files only include 48 compartments and a large aircraft carrier might contain 
approximately 1200 compartments. It is estimated that the data files for an aircraft 
carrier Would consume 200- 300K bytes of memory. The compiled program Emergency 
and the data files for most Naval ships would fit on one standard 360K floppy disk. 
Due to its large size and many complex systems, a separate disk for the data files might 
be required for an aircraft carrier. The exact volume of data required for any given ship 


type 1s not known. 


B. PROGRAM LANGUAGE REQUIREMENT 

The Emergency system was developed on a COMPAQ Deskpro computer in 
TURBO PASCAL as described in Borland International Turbo Pascal Version 3.0 
Reference manual [Ref. 8]. The system files and the prototype data files were then 
transferred to a VAX 11/780 UNIX file system and Emergency was modified to run 
on UNIX with Berkeley Pascal as described in the Berkeley Pascal User's Manual 
(Ref. 9]. The Turbo Pascal version worked better than the Berkeley Pascal version 
because Turbo Pascal was designed for use with microcomputers. Turbo Pascal has a 
built in ability to read string variables and no special procedures are needed to handle 
strings. With Berkeley Pascal additional procedures or functions have to be created to 
read in string variables. 

ADA will be the Department of Defense computer language [Ref. 10: p. 269]. 
ADA is a Pascal like language and anything written in Pascal could be converted to 


ADA. Emergency could be converted to ADA to run aboard US Naval ships. 
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C. HOW TO INSTALL EMERGENCY 

Emergency is a prototype program and was not designed for one particular ship. 
Emergency was designed to be easily installed in all Naval ships. The only part of the 
program that needs to be tailored for the individual ship is the value of some of the 
constants that give the number of decks, electrical panels, etc. and the constants, such 
as the compartment number of sickbay, that provide specific information where a few 
special compartments are located on the ship. Compartment numbers for the regular 
compartments will be in the data base. The program constants are conveniently located 
at the beginning of the program. The information for the constants can be obtained 
from the ship’s damage control drawings or from the damage control manuals. 

The unique part of the Emergency system for each ship is the data base. 
Preparing and installing the data base is the difficult and time consuming part of 
installation. It is extremely important that the data base be accurate because this is 
where the program obtains the information about the ship’s systems. The major file is 
the ‘Compdata’ file which contains all the coded information for each compartment on 
the ship. There are also thirteen (13) data files containing information on the 
identification numbers and locations of such items as electrical panels, ventilation 
controllers, water-tight and flame-tight fittings, and installed damage control systems. 
For the actual implementation on board Naval ships, certain data fields in certain files 
might have to be expanded to contain the required information. These files can be in a 
standard format for all ships, but the data in each file would be unique for the ship. 
Ships in the same class could have similar data that could be shared with each other. 
Ships in a class could have data passed down from the lead ship of the class. This 
would greatly simplify the preparation of the data bases. Many of the installed damage 
control systems on the newer classes of ships are virtually identical between ships in 
the same class. The layout and use of the compartments are also very close. These 
elements of data could be inherited from the class design concept by all the ships in the 
class. It might be possible to have Type Commanders, who are administratively in 
charge of all the ship’s of a given type, prepare the data base for these classes of ships 
under their control. In the event the ship’s force has to enter the data base, the most 
important compartments and systems should be entered first. Emergency can then 
function in a partial mode but it would not cover the complete ship or give complete 
information. For new construction contracts, a provision could be made that the ship 


builder prepare the data base for the ship under construction since they would have all 
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the plans and specifications. The ship would then be covered by the system upon 
completion of construction. 

Emergency is designed to be used on a microcomputer aboard Naval ships. The 
primary location for the installation of the Emergency svstem should be Damage 
Control Central. This is the location where the Damage Control Assistant underway or 
the duty Engineering Officer in-port will work with the Damage Control watchstander 
to pass information via a sound powered phone talker to the On-Scene leader at the 
scene of the emergency. As a backup, another microcomputer to use with Emergency 
could be installed in secondary Damage Control Central. General Quarters is when the 
ship goes to its maximum state of readiness to combat the enemy or combat inflicted 
battle damage. Groups of trained personnel are organized as repair parties to combat 
any damage or emergencies. The repair party meets at a compartment that contains 
portable damage control equipment. This compartment 1s called a repair locker. On 
large ships a microcomputer with the Emergency system would be valuable at all the 
major repair lockers to use during General Quarters. This would provide a means to 
assist neW on-scene leaders to combat damage to the ship in the event of battle 
casualties to personnel in the repair party. 

Training of damage control central personnel to operate Emergency would be 
easier than trying to train them to read and interpret the complicated and numerous 
damage control drawings. The program would present them only with the information 
that they need and eliminate the possibility of the wrong system being traced out from 
a damage control drawing. With an installed hard disc, the microcomputer could be 
set up with a batch file to call Emergency whenever the computer is turned on. The 
Operator would then have to enter the compartment number of the location of the 
emergency in the format shown on the screen. All other entries would be of a yes/no 
nature or a selection from a menu. Training of personnel to update the data base or 
maintain the program would take more time. Since the data base only changes when 
alterations to the ship’s design are made, very few people would be needed. With the 
rapid increase in computer literacy, every ship would probably have several people who 
could perform this function. ’ 

To test the emergency system, there is an option at the beginning of the program 
to list all of the ships compartments. An operator can select a compartment, 
determine its use, and determine what installed damage control systems it contains. [he 


Operator can then enter the compartment number and see if the expected boundaries, 
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system controls and locations, and procedures for the selected hazard type are 


presented. 
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V. CONCLUSIONS 


A. DISCUSSION OF THE RESEARCH 

This study tried to address the problem of lack of expertise in the operation of 
installed damage control systems aboard Naval ships. Evaluation of the problem 
resulted in the decision to use an expert system. The work involved in developing the 
prototype expert svstem Emergency was a success in that Emergency was capable of 
performing some nontrivial examples of providing information on emergency 
procedures and the operation of installed damage control systems. Appendixs A, B, and 
C of this study are sample user session listings that demonstrate the operation of the 
program. The use of a decision lattice structure with some global variables to pass the 
type and source of the hazard proved to be an efficient method of designing the 
program. Common upper-level procedures could be used for all the different kinds of 
emergencies, but the unique requirements for the different emergencies could be 
handled within the procedures by testing the value of the global variables and 
determining the tvpe of compartment where the emergency 1s located. The use of the 
Pascal language to write an expert svstem for the operation of installed damage control 
equipment was shown to be feasible by the prototype program. Chapter IV- showed 
that implementing Emergency aboard Naval ships was possible. It 1s proposed that 
expert systems for use aboard naval ships can be designed with a type of decision 


lattice structure using the Pascal or ADA language. 


B. EMERGENCY SYSTEM LIMITATIONS 

Emergency is a prototype program that was designed to demonstrate the concept 
that an expert system could provide valuable assistance in the employment of installed 
damage control equipment. The prototype program only handles emergencies in one 
compartment at a time. The program would be of greater value, if several emergencies 
located in different compartments could be handled at the same time. This 1s a 
possible future upgrade to the program. 

Due to time limitations most of the procedures that provide guidance to the user 
are not developed fully. As an example, the procedure perinjury contains procedures 


that handle personnel causalities. On the menu displayed to the user, see figure 3.7, 
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only twelve possible injuries are listed. Of the twelve choices given to the user, only two 
procedures for emergency first aid are partially developed. The other medical 
procedures are merely stubs and need to be developed further. The procedures Tranport 
and bestroute which provide transportation precautions and the best route to sickbay 
would be more useful if they were developed further. An expert in Emergency first aid 
should be consulted in expanding and improving the procedures involving personnel 
causalities. 

All of the current, major installed damage control systems were addressed to 
some extent in Emergency. Some of the Technical Data on system operations is very 
limited due to the unavailability of some of the Technical Manuals. The safety- 
precaution procedure and the procedure to provide system guidance need to be 
improved to include more information from the Naval Sea Systems Command 
Technical Manuals. The fume-test procedure needs to include tests for more types of 
fumes and additional information on when to conduct what tests. The procedure for 
an unknown hazard needs to be developed to provide the user with a list of 
compartments to check and tests to conduct to determine the nature of the emergency. 
These procedures will have to be improved and expanded prior to actual use of 
Emergency in the fleet. This is a time consuming task which the author of this study 
did not have time to pursue. The author estimates that the most important procedures 
are TS to 80 percent complete on the information they present to the user. The 
procedures that present safety precautions and system operating guidance are estimated 
to be only 40 to 50 percent complete. All procedures are complete enough to show how 
they interact with the user and the other procedures. The author estimates that it 
would take three manmonths to complete the program as a useful prototype for a 
Naval ship. 

The Emergency program was developed using a limited number of compartments 
rather than data for an entire ship. With this number of compartments it was possible 
to demonstrate the feasibility of the concepts without handling the large amount of 
data a real ship would have entailed. The drawback of the small data base is that the 
ability of the program to handle large amounts of data read in from a disk file has not 
been fully demonstrated. The input from the user at the keyboard will remain very 
limited regardless of the number of compartments the ship contains. There is nothing 
in the program and data structure design that should preclude the proper handling of 


large amounts of coded data from disk files. 
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The decision lattice control structure was not limiting in any way. The structure 
allowed a lot of flexibility in arranging the procedures. The program was written in 
Pascal which did place some constraints on how the procedures were arranged, but this 
was not a problem since the procedures worked together better in a structured format. 
I would recommend the use of Pascal for other expert systems that use a decision 


lattice structure. 


C. FUTURE PROGRAM IMPROVEMENTS 

Emergency was written to be easily used by nontechnical personnel. The entry of 
the compartment number is the only input the user must make that requires more than 
the entry of a character ( Y/N) or an integer choice from a menu. In spite of this there 
could be some advantages in installing a graphics interface for the program. A graphics 
interface that displayed a drawing of the ship’s compartments by deck or level would 
give the user a prospective of the relationship of one compartment to another. By the 
use of a mouse the user could select the compartment of interest where the emergency 
is located. Pop up or drop down menus could be used to select the type of emergency. 
A helpful addition to the program would be a graphic display that showed the relative 
location of all the installed damage control systems control operators and their 
identification numbers. The graphic display would have to be well designed to avoid 
confusing inexperienced users with too much data as the present damage control charts 
tend to do. The installation of a graphical interface would greatly increased the 
installation time to developed the data base and would require increased data storage 


ared. 


D. BENEFITS OF RESEARCH 

This study demonstrated the feasibility and benefits of using an expert system to 
assist the damage control organization aboard naval ships in the proper use of installed 
damage control systems. The advantage of the decision lattice control structure in 
conjunction with the use of some global variables was demonstrated. The use of Pascal 
as a practical language for expert systems was shown. The use of Pascal demonstrates 
that ADA is also a possible language for expert systems. 

This research can also benefit other areas where an expert system might be 
beneficial. 


1. An expert system might be beneficial in determining the source of a boiler water 
chemustry problem. 
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Engineering plant casualty_control could be assisted with an expert system. In a 
sense,a manual version of an expert system already exists with the check lists 
for given casualties in the Engineering casualty control manuals. This system 
could be automated. 


The developed Bu On ee expert system could be converted into an Intelligent 


Computer Aided Instruction (ICAT) system to train personnel in the operation 
of the installed damage control systems. 
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i‘ APPENDIX A 


DEMONSTRATION OF EMERGENCY PROGRAM HANDLING A 
MEDICAL EMERGENCY 


— —_ — or ee eee oe ee eee ee eee eee ee ee ee ee ee ee ee ee ees ees ee oe eee ee een ee ee 
(00°C ee ee ee ee ee ee a 


The following is a demonstration of the program Emergency 
handling a medical emergency. The compartments covered by 
Emergency were printed out first. The program’s interaction 
with the user is shown. 


rs a rs rs rs rs rs rs cs i a a ce ee 
SS ESS ee ee ee ee ee er rr i a i cr cr cr cr cr cs a a re rm a ee ee 


EK KK 2K KK 2K 2K KK KK KK KK KEK KK KKK KKK KKK KK KKK KK KK KKK KKK KKK KKK KK KKK KKK 


‘ EMERGENCY * 
* An Expert system to provide guidance on the operation of * 
* installed damage control equipment aboard the ship. - 
* Answer the given questions and make the Sd) 2 


* choices from the presented menus. 
2K KKK KK KK OK KOK KKK KOK KK OK KOK KK KK KK KKK KK KK KKK KK KK KK KK KKK KKK KK KKK KK KK KK 


* 


Do you want to have the ship‘s compartments printed out ? Y/N 


yy 
The following compartments will work as input for the program. 


Compt number Use Installed systems 


01- 50- 3-L Berthing Compartment : NONE 


02- 50- 1-Q  Passageway : NONE 

04- 40- 0-C Control space : NONE 

2- 30- 2-Q. Workcenter : NONE 

2- 30- 4-Q. Passageway : NONE 

2- 30- 2-Q. Workcenter : Dry standpipe sprinkler 
2- 30- 1-Q. Workcenter : CO2 Hose Reel 
2- 30- 6-L Head space : NONE 

2- 30- 5-Q Admin space : NONE 

2- 30- 3-Q  Passageway : NONE 

2- 36- 2-Q. = Repair Locker : NONE 

2- 37- 1-Q  Passageway : NONE 

2- 40- 1-Q Admin space : NONE 

2- 40- 2-Q = Galley space : NONE 





36 


Pn Ooe 
2- 48- 2-Q 
2- 50- 1-Q 
2- 60- 6-Q 
2- 60- 3-Q 
2- 60- 2-Q 
2- 60- 1-Q 
26020516 
DE G8 221 
2570: 1-0 
2- 76-1 Q 
Ba 305 3-L 
epo0s 2:1 
B260- 7-L 
a0. 4b 
BeTO> 2-1. 
Sag o= 1-0 
PRO 0-1, 
3- 90- 3-E 
3- 90- 3-Q 
Aes0e I-A 
4- 30- 2-M 
4- 80- 1-Q 
eeeg0- 0-C 
4- 80- 6-Q 
4- 80- 4-A 
5030. 1-A 
5- 30- 4-M 
5- 40- 0-E 
5- 60- 0-E 
6- 30- 1-A 
6- 30- 2-E 
oa0- 32A 
6- 80- 0-E 
6- 90- 0-A 


Galley space 
Galley space 
Workcenter 
Medical Spaces 
Admin space 
Passageway 
Passageway 
Galley space 
Head space 
Admin space 
Passageway 
Head space 


Head space 
Head space 


Passageway 


Berthing Compartment : 
Cominuter space 


W orkcenter 
Storeroom 


AMMO Magazine 


Passageway 
Control space 
Passageway 
Storeroom 
Storeroom 


AMMO Magazine 
Main Machinery Room 
Main Machinery Room 
Flammable storeroom 
: AFFF HR and CO2 hosereel 
: Dry standpipe sprinkler 
: AFFF HR and CO2 hosereel 


Pump room 
Storeroom 
Pump room 


Hazardous materials 


: NONE 
: Dry standpipe sprinkler 
: NONE 
> NONE 
>: NONE 
: NONE 
: NONE 
: NONE 
: NONE 
: NONE 
: NONE 
: NONE 
Berthing Compartment : 


NONE 


: Installed exhaust fan 
: Installed exhaust fan 
Berthing Compartment : 
: NONE 


NONE 


NONE 


: Installed eductor 


: Installed exhaust fan 
: Dry standpipe sprinkler 


: Active sprinkler sys 


: NONE 
: NONE 
: NONE 
: Installed exhaust fan 
: Dry standpipe sprinkler 


: Active sprinkler sys 
: HALON, TAU, and CO2 hosereel 
: HALON, TAU, and CO2 hosereel 
: CO2 Flooding 


: CO2 Flooding 


Give the compartment number of the location of the emergency . 
Enter the compartment number in format - 


Example : 


5 60 0-E : NOTE: The spaces are important. 


If the exact location is unknown give the closest location known. 
The format must be accurate. For example "1-Q'" vice "1-q". 


4 30 2-M 


The compartment submitted is 4- 30- 2-M 


Sy 


Is the nature of the emergency known ? Y/N 


y 
What is the nature of the emergency or problem ? 
Enter the appropriate number below : 


Fire =] 
Flooding =2 
Fumes = 3 
Injury to personnel = 4 


4 
What type of medical emergency has occurred ? 
Enter the appropriate number below : 


Head Injury = | 
Back or neck Injury = 2 
External Bleeding = 3 
Internal Injury = 4 
Broken Leg = 5 
Broken Arm = 6 
Severed Limb = 7 
Serious Burns = 8 
Inhalation of Fumes = 9 
Electrical Shock = 10 
Drowning = 11 
Unknown II]ness = 12 


8 

Try to limit contact and keep the burned area as clean as 
possible. Have the Hospital corpman apply temporary dressings. 
Use wet towels in the stretcher if needed. 


Transport or escort patient to sickbay 2-60-6-Q by the 
closest safe route. 

Use Ammo elevators if possible to move injured personnel. 
Are there any more medical emergencies ? Y/N 

n 


Are there any more emergencies or casualities ? Y/N 
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APPENDIX B 


‘DEMONSTRATION OF HANDLING A FIRE IN A BERTHING 
COMPARTMENT’ 


mm we eae ia ia sia ei ea ease 
———= $$ — i eH SS SS A 


This is a Demonstration Listing of the program Emergency 
handling a fire in a Berthing compartment that has no 
installed damage contro! equipment. 


mcm es mm ms ms ws mc we wc wc wr a a Ss = 
ec cc cm rm i cr cr cr rc cr cr cr mr cr cr cr cc rs 8 Oe 


Pee e ff e ee S SS SSS SEES SES ES ESSE SEES TES ES SES SETS ESS SS STS SS SSS SS SS SS SSS 


EMERGENCY i 
An Expert system to provide guidance on the operation of * 
installed damage control equipment aboard the ship. os 
Answer the given questions and make the ge 


choices from the presented menus. 2 
ceSP SSeS S ESE S ESSE SESE LESS SES SES SEES SSE SS SEES ESE SS SESS TSE S SS SS SS SS SF | : 


* 


%¥ *© %* %*€ ¥* 


Do you want to have the ship‘s compartments printed out ? Y/N 
n 

Give the compartment number of the location of the emergency . 
Enter the compartment number in format __ ox 

Example : 5 60 0-E ; NOTE: The spaces are important. 

If the exact location is unknown give the closest location known. 
The format must be accurate. For example "1-Q " vice "I-q". 

3 30 2-L 

The compartment submitted is 3- 30- 2-L 


Is the nature of the emergency known ? Y/N 


3g 


What is the nature of the emergency or problem ? 
Enter the appropriate number below : 


Fire =] 
Flooding =2 
Fumes = 3 
Injury to personnel = 4 


1 
The following Berthing Compartments should be cleared : 
3 - 30 -2-L 


Set the following boundaries to contain the hazard : 


Fitting No. WTH 2-38-1 located 2-37-1-Q 
Fitting No. WTH 3-38-1 located 3-37-1-Q 
Fitting No. WTH 3-38-2 located 3-30-4-L 


Are you ready to continue with the program ? Y/N 
iS 


To secure electrical power to compartment 3 - 30-2-L 
Secure power at panel No. pan 2-53-2 located in 2-40-0-L FR 53 P 


To secure ventilation to compartment 3 - 30-2-L 
Use controller No. CONT 2-87-2 located in 2-80-4-Q FR 87 P 


What type of fire is this ? 
Enter the appropriate number below: 


Class A (paper, wood, materials etc.) = 1 

Class B (hydrocarbon or flammable liquids) = 2 

Class C (electrical fire ) = 3 
( 


Class D ( Chemical fire } =4 
Type of fire unknown =0 


1 

Is the source of the fire known? Y/N 

n 

Is the compartment number for the location of the emergency 
correct as originally reported ? Y/N 
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Ensure fire boundaries are maintained. 
Ensure that firefighters are properly equiped. 


No appropriate installed systems, use nearest fire station. 


Is the fire out ? Y/N 


nN 


Continue to combat the fire until it is extinguished. 


Is the fire out ? Y/N 


y 
Conduct the following tests: 


Test for explosive gases . 

Test for oxygen. 

Test for carbon monoxide. 

Test for carbon dioxide. 

What type of fumes are present in the space ? 
Enter the appropriate number. 


Compartment Tested, Adequate Oxygen, 
and no fumes Detected = 0 
Explosive gases = ] 

Hvdrogen Sulfide = 2 

Benzine ae 

Chlorine = 4 

Carbon Monoxide —a7 

Carbon Dioxide = 5 
Unknown Fumes = 


Put out the smoking lamp throughout the ship. 


Set the reflash watch in OBAs and overhaul the fire. 


Recommend use of portable pneumatic blowers to remove explosive vapors. 


No installed exhaust ventilation systems. 


Use a portable pneumatic blower or a safety checked Red Devil blower. 


Is the fire overhauled ? Y/N 


nN 
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Continue to overhaul the fire . Conduct second 
test when the overhaul is completed. 
Conduct the following tests: 


Test for explosive gases . 
Test for oxygen. 

Test for carbon monoxide. 
Test for carbon dioxide. 


What type of fumes are present in the space ? 
Enter the appropriate number. 


Compartment Tested, Adequate Oxygen, 
and no fumes Detected 0) 
Explosive gases = ] 

Hydrogen Sulfide =2 

Benzine = 3 

Chlorine 4 

Carbon Monoxide — 

Carbon Dioxide ='G 
Unknown Fumes = 


~] 


0 

Compartment  3- 30- 2-L is safe to enter . 

No ventilation is needed except for Smoke removal 
Does the compartment need to be desmoked ? Y/N 


No installed exhaust ventilation systems. 
Use a portable pneumatic blower or a safety checked Red Devil blower. 


Does Compartment 3- 30- 2-L_ have a significant amount of 
water. over two inches, that needs to be removed . 

n 

Recommend the use of mops and pails to clean up. 


Use the closest deck drains to remove the water. 


Are there any more emergencies or casualities ? Y/N 
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APPENDIX C 
‘DEMONSTRATION OF A FIRE IN A MAIN MACHINERY ROOM’ 


cm ee i OT a ww cr a ra cr a cr rw wr cr ee ae eC 
cr cr a rr cr mr cr cr cr cr rr rr crm crm crm cer cr cr mc cs eee a Ce 


The following is a listing of the program Emergency handling 
a complex fire casualty in a Main Machinery Room. A listing 
of the available compartments was made. This demonstration 
shows the interaction between the program and the user. 


cmc ee ee ei Oe eee eee eee ne nr cr nr cr ec wr a cr a i ee eee ae i SCS Cie 
mm rr ms ms ms ee SS Ct 


2K 2K OK 2K OK KK OOK 2 2K OK 2K 2K KK OK 2K OK ok 2K OK 2K OK OK OK ok OK 2K KK OK OK OK OK OK OK KOK 2K OK 2K ok 2K 2K KK 2K OK KK OK OK KK OK OK OK OK kK OK 


EMERGENCY . 
An Expert system to provide guidance on the operation of * 
installed damage control equipment aboard the ship. : 
Answer the given questions and make the appropriate 


choices from the presented menus. i 
2K 2K DK KK 2K 2K OK OK 2k OOK OK 2K OK 2K OK OK OK OK 2K OK OK OK 2K 2K OK OK 2K OR OK OK OK OK 2K OK KOK OK OK OK OK OK KOK OK 2K OK OK OK OK OK OK OOK KOK OK KKK KKK 


* 


: i, i, i an 17 


Do you want to have the ship's compartments printed out ? Y/N 
y 


The following compartments will work as input for the program. 
Compt number Use Installed systems 


01- 50- 3-L Berthing Compartment : NONE 


02- 50- 1-Q  Passageway : NONE 

04- 40-0-C Control space : NONE 

2- 30- 2-Q.  Workcenter : NONE 

2- 30- 4-Q Passageway : NONE 

2- 30- 2-Q. Workcenter : Dry standpipe sprinkler 
2- 30- 1-Q  Workcenter : CO2 Hose Reel 
2- 30- 6-L Head space : NONE 

2- 30- 5-Q Admin space : NONE 

2- 30- 3-Q  Passageway : NONE 

2- 36- 2-Q = Repair Locker : NONE 

2- 37- 1-Q  Passageway : NONE 


=) 


2- 40- 1-Q Admin space > NONE 

2- 40- 2-Q Galley space : NONE 

2- 40- 0-L = Galley space : NONE 

2- 48- 2-Q = Galley space : Dry standpipe sprinkler 

2- 50- 1-Q.  Workcenter : NONE 

2- 60- 6-Q Medical Spaces : NONE 

2- 60- 3-Q. Admin space : NONE 

2- 60- 2-Q ~~ Passageway >: NONE 

2- 60- 1-Q  Passageway > NONE 

2- 60- O-L Galley space : NONE 

2- 68- 2-L Head space : NONE 

2- 70- 1-Q Admin space ; NONE 

2- 76-1 Q  Passageway : NONE 

3- 30- 3-L Head space : NONE 

3- 30- 2-L)  Berthing Compartment : NONE 

3- 60- 7-L Head space : Installed exhaust fan 

3- 70- 4-L Head space : Installed exhaust fan 

3- 70- 2-L ~=Berthing Compartment : NONE 

3- 73- 1-Q  Passageway 7 NOW 

3- 80- 0-L = Berthing Compartment : NONE 

3- 90- 3-E Cominuter space : Installed eductor 

3- 90- 3-Q.  Workcenter : Installed exhaust fan 

4- 30- 1-A = Storeroom : Dry standpipe sprinkler 

4- 30- 2-M AMMO Magazine : Active sprinkler sys 

4- 80- 1-Q.__ Passageway > NONE 

4- 80- 0-C Control] space ; NONE 

4- 80- 6-Q._—- Passageway > NONE 

4- 80- 4-A = Storeroom : Installed exhaust fan 

5- 30- 1-A = Storeroom : Dry standpipe sprinkler 

5- 30- 4-M AMMO Magazine : Active sprinkler sys 

5- 40- 0-E Main Machinery Room : HALON, TAU, and CO2 hosereel 
5- 60- O0-E = Main Machinery Room : HALON, TAU, and CO2 hosereel 
6- 30- 1-A Flammable storeroom : CQO2 Flooding 

6- 30- 2-E Pump room : AFFF HR and CO2 hosereel 
6- 30- 3-A = Storeroom : Dry standpipe sprinkler 

6- 80- 0-E = Pump room : AFFF HR and CO2 hosereel 
6- 90- 0O-A Hazardous materials : CO2 Flooding 


Give the compartment number of the location of the emergency . 
Enter the compartment number in format ———-__ 

Example : 5 60 0-E ; NOTE: The spaces are important. 

If the exact location is unknown give the closest location known. 
The format must be accurate. For example "1-Q " vice "1-q". 

5 40 0-E 


The compartment submitted is 5- 40- 0-E 
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Is the nature of the emergency known ? Y/N 


‘; 
What is the nature of the emergency or problem ? 
Enter the appropriate number below : 


Fire 
Flooding 
Fumes 
Injury to personnel 


| 
I] 


| 
} wr 


Set the following boundaries to contain the hazard : 


Fitting No. WTH 38-41-1 located 3-40-1-T 
Fitting No. WTH 3-59-2 located 3-58-2-Q 
Fitting No. WTS 3-59-1 located 3-58-1-T 
Fitting No. WTH 2-41-1 located 2-40-1-Q 
Fitting No. WTH 2-59-2 located 2-58-2-Q 


Are you ready to continue with the program ? Y/N 
y 


To secure electrical power to compartment 5 - 40-0-E 
Secure power at panel No. pan 2-23-1 located in 2-20-1-Q FR 23 P 


To secure ventilation to compartment 5 - 40-0-E 
Use controller No. CONT 2-59-2 located in *2-40-0-L FR 59 C 


What type of fire is this ? 
Enter the appropriate number below: 


— 


Class A (paper. wood. materials etc.) = 
Class B (hydrocarbon or flammable liquids) = 2 
Class C (electrical fire ) = 3 

( 


Class D ( Chemical fire ) =4 
Type of fire unknown = 0 


Z 

Is the source of the fire known? Y/N 

n 

Flammable liquids in some piping systems. 

Is the compartment number for the location of the emergency 
correct as originally reported ? Y/N 
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Ensure fire boundaries are maintained. 

Ensure that firefighters are properly equiped. 

Oil spray fires can get out of control quickly. 

Secure fuel source and localize fire as soon as 

possible without endangering personnel. 

Secure the exhaust ventilation to the space. 

The compartment has an installed exhaust system. 
Controller number cont 2-54-1 located 2-40-0-L FR 545 


To operate the installed exhaust fan, open any closed 
exhaust vent dampers and then activate the exhaust fan , 
at the given controller. In the event of a fire, secure 

the fan at the given controller and then close the 

exhaust vent dampers. 


Are you ready to continue with the program ? Y/N 

y 

The compartment contains various firefighting systems. 
Use the most appropriate system. 

The compartment contains a Twin Agent Extinguishing System. 
Valve number cont 5-45-1 located 5-40-0-E LL STBD 
Valve number cont 4-53-2 located 5-40-0-E UL PORT 
Valve number cont 4-57-1 located 5-40-0-E UL STBD 


To operate the Twin Agent Fire Extinguishing System , open 
the given control valve . 

To secure the TAFES system follow the procedures given in 
NAVSEA Tech Manual Chapter 9930, Firefighting-Ship. 


Are you ready to continue with the program ? Y/N 

7 

The compartment contains a AFFF sprinkler system. 
Valve number val 4-42-2 located 4-40-0-C FR 42 P 
Valve number val 2-54-2 located 2-40-0-L FR 54 P 


To operate the AFFF sprinkler system, operate 
given fitting. 


Are you ready to continue with the program ? Y/N 
. 
The compartment contains a AF FF Hose Reel system. 


To operate the AFFF Hose Reel System . open 

the given control valve . 

In most cases a stream of foam should be deflected from 
a bulkhead to avoid agitation of burning liquids. Foam 

is only effective when it covers the top of the surface 

of burning combustibles. 

To secure the Hose Reel follow the procedures given in 
NAVSEA Tech Manual Chapter 9930, Firefighting-Ship. 


Are you ready to continue with the program ? Y/N 

y 

The compartment’s HALON actuators are as follows : 
Actuator act# 4-40-2 located 4-40-0-C FR 40 P 
Actuator act# 2-40-1 located 2-40-1-Q FR 40 P 


Before operating the installed HALON svstem . all supply 
and exhaust vent dampers should be closed if possible, 
and all fans serving the space secured. All personnel 
should be out of the space or in the process of leaving 

the space. To activate the HALON system use the given 
local or remote pneumatic actuators. 


Are you ready to continue with the program ? Y/N 

y 

Activate AFFF Bilge sprinkler system. 

The compartment contains a AFFF sprinkler system. 
Valve number val 4-42-2 located 4-40-0-C FR 42 P 


Valve number val 2-54-2 located 2-40-0-L FR 54 P 
To operate the AFFF sprinkler system, operate 


given fitting. 


Are you ready to continue with the program ? Y/N 
V 


Is the fire out ? Y/N 
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Conduct the following tests: 


Test for explosive gases . 
Test for oxygen. 

Test for carbon monoxide. 
Test for carbon dioxide. 


What type of fumes are present in the space ? 
Enter the appropriate number. 


Compartment Tested, Adequate Oxygen, 
and no fumes Detected = 0 
Explosive gases =] 

Hydrogen Sulfide =2 

Benzine = 3 

Chlorine — 

Carbon Monoxide = 5 

Carbon Dioxide = 6 

Unknown Fumes = 


Carbon Monoxide can be deadly. All personnel who 
might be exposed in the course of finding and elimating 
the source of the fumes should use breathing devices. 
Set the reflash watch in OBAs and overhaul the fire. 


The compartment has an installed exhaust system. 
Controller number cont 2-54-1 located 2-40-0-L FR 54 S$ 


To operate the installed exhaust fan, open any closed 
exhaust vent dampers and then activate the exhaust fan , 
at the given controller. In the event of a fire, secure 

the fan at the given controller and then close the 

exhaust vent dampers. 


Are you ready to continue with the program ? Y/N 
y 


Is the fire overhauled ? Y/N 


Conduct the following tests: 
Test for explosive gases . 
Test for oxygen. 

Test for carbon monoxide. 
Test for carbon dioxide. 


What type of fumes are present in the space ? 
Enter the appropriate number. 


Compartment Tested, Adequate Oxygen, 
and no fumes Detected — i} 
Explosive gases =] 

Hydrogen Sulfide =2 

Benzine = 3 

Chlorine =4 

Carbon Monoxide =5 

Carbon Dioxide = 6 
Unknown Fumes = 


~ 


0 


Compartment 5- 40- 0-E is safe to enter . 
No ventilation is needed except for Smoke removal 
Does the compartment need to be desmoked ? Y/N 


y 


The compartment has an installed exhaust system. 
Controller number cont 2-54-1 located 2-40-0-L FR 548 


To operate the installed exhaust fan, open any closed 
exhaust vent dampers and then activate the exhaust fan , 
at the given controller. In the event of a fire, secure 

the fan at the given controller and then close the 

exhaust vent dampers. 


Are you ready to continue with the program ? Y/N 
M 


ag 


The main circ pump can be used to dewater a Main Machinery space. 
The compartment can be dewatered using the main drainage system. 
Valve number OVBd 5-43-1 located 5-40-0-E FR 43S 
Valve number Act W 5-44-1 located 5-40-0-E FR 45 S$ 
Valve number Suct 5-42-1 located 5-40-0-E FR 42S 
Valve number OVBd 5-54-2 located 5-40-0-E FR 54 P 
Valve number ActW 5-55-4 located 5-40-0-E FR 55 P 
Valve number Suct 5-58-2 located 5-40-0-E FR 58 P 


To operate the installed eductor system, open the (OVBD) 
overboard valve first, then the activating water (ACT W), 
and finally open the bilge or main drain (SUCT) valve. 

To secure the eductor use the reverse order of lineup. 


Are you ready to continue with the program ? Y/N 
n 

Answer yes when you are ready to continue. 

Are you ready to continue with the program ? Y/N 
y 


Are there any more emergencies or casualities ? Y/N 


n 
Execution terminated. 


25179 statements executed in 0004.700 seconds cpu time. 


APPENDIX D 
LISTING OF PROGRAM EMERGENCY 


program emergency(input, output); 


afe ae ae as fe afc he is Ae ahs Ne ahs ale fe fe fs eke ake ae ale ae ate fe fe ats fe fe ade ade fe afc aye afe ode aft ahs af aft fs fe ake afc fe ade of ade ois oe ale afk afk ade ate fe ote fe ate ahs ale aie af ae te 
pe ITLE : EVIERGENGy 

meow THOR : LCDR Bernard G Sige! 

, Date Written : 21 Sept 86 - 16 Nov 8 

nev crsion..  .: One 

: System Used : Turbo Pascal on COMPAQ Deskpro PC 
* [,/O Sources : Data input from disk files and user input 

‘4 ier rom the terminal Keyboard. 

* Description : This program is an expert system to provide 
. guidance in the pee e of installed damage 
: control systems aboard Naval ships. 


He He ads oe ahs ae ke ake He ahs fe ate fe of ole of aks afk ots oe ate De ots fe ats Ae of ols af aks ale ols ade of ots ake als ols ofs ade als ds oh ae fe ate ake de ats ade ots ade ae ahs dee ote fe Me fe ft te 


(* GLOBAL CONSTANTS *) 


const 
MUMGceKS = Oe mee ketimber of decks on the ship,*) 
numlevel = 4 ; (* Number of levels on the ship *) 
numcompt = 100; (* Number of compartments on the ship *) 
numfittings = 50; (* Number of fittings on the ship *) 
numelpanel = 28 ; (* Number of electrical panels i. 
nuniventcon = 30; (* Number of ventilation controllers *) 
numhalon = 4 ; (* Number a HALON systems actuators on the 
ate 
numcofld = 6 ; (* Number ae 2 flooding systems 
; COntrollers | 
momiconr = 7; — asumber ol COZ hose reels on the ship *) 
numaflfsp = 4; (* Number of AFFF sprinkler systems 
: controllers *) 
numafffhr = 4; (* Number of el aie hose reels controls on the 
<haee 
numtau = 8; (* Number of Teta Agent Units on the ship 
numeduct = : * Number of installed eductor system valves 
numexhfn = 13; (* Number of installed exhausr fans on the 
Shane 
nunmiactsp = 8 ; (* Number of active sprinkler systems on the 


numdysp = 12 ; (* Number of dry standpipe sprinklers on the 


shi 
sickbaydk = 2 ; (* Sickbay on tHe second deck *) 
sickbayfr = 60 ; 6 Sickbay at frame 60 a) 
sickbay = ’2-60-6-Q’ ; (* compartment number *) 


type 
7Pemertypes = ( fire, flooding , fumes, personiny ) ; 


filname = string[16] ; 
filvar = text; 


recordptr = @compartmentrec ; 

usearray = packed array stetie) of char ; 
fncarray = packed array (.1..13.) of char ; 
locarray = packed array (.1..21.) of char ; 


S| 


ae ae ee = record 


iklevel 2 iigetcie © 

iramicee Integers 

compabmndk : boolean;  . 

loctocl : usearray; (* location to centerline, of ship 

shipside char ;(* Port, Stbd) on Centerline.) 

zone : integer ; (* zone for setting boundaries *) 
panelcode _ : integer ; C code number for electric panel *) 
ventcode : integer ; (* code number for ventilation controller *) 
pipingcode __: integer ; (* code number for piping in the space *) 
usecode ; integer ; (* code number for use of space *) 
instalsystems : integer ; 

linkit : recordptr ; 


end ; (* compartmentrec *) 


fittings = record on 
zoneloc : integer; (* zone where fitting is located *) 
fitting 2 inearray ; (- fittineemumben 
fitlocat ; locarray ; {(* location of fitting *) 

end .( ilttimes ~) 


elecpanel = record 
panicode : integer; (* code for electrical panel * 
panelnum : fncarray ; (* electrical panel number * 
anlocat : locarray; (* electrical panel location * 
end; (" elecpanel”) 


ventcontril = record Remo 
vntcode : integer ; (* code for ventilation controller *) 
contnum : fncarray ; (* number of ventilation controller *) 
contlocat : locarray ; (* location of ventilation controller *) 
end 7 (* ventcontr) 7) 


instlsvs = record 
dkorlev .: integer; (* deck or level of compartment *) 
fies : integer; (* frame of compartment * 
thirdpt : usearray ; (* third part of compartment number, *) 
valvenum : fncearray ; (* valve or system control number *) 
location : locarray; (* location of controls *) 

end ; (* instlsys *) 


upprcomp = aaa 1..numlevel.) of compartmentrec ; 
lowrcomp = array (.1..numdecks.) of compartmentrec ; 
closures = arrav Gein TINE) of fittings ; 

panels = array (.1..numelpanel.) of elecpanel ; 
ventcntls = array (.1..numventcon.) of ventcontrl ; 
halonsys = array (.1..numhalon.) of instlsys ; 
co2flood = array (.l..numcofld.) of instlsys ; 

co2hoser = array (.1..numcohr.) of instlsys ; 

afffsprk = arrav (.1..numaflfsp.) of instlsys ; 

afffhsrl = array ieee of instlsys ; 

tausvstm = arrav (.1..numtau.) of instlsvs ; 

insteduc = array (.1..numeduct.) of instIsys ; 

exhstfans = array (open celta) of instIsys ; 
actsprsy = array (.l..numactsp.) of instlsys ; 

drystand = array (.1..numdysp.) of instlsys ; 


(* GLOBAL VARIABLES *) 


var 
compt : compartmentrec ; 
uplev : Upprcomp ; 
Iwrdk ; lowrcomp ; 
closure : closures : 
panel ‘pancisen, 
vent - ventcntls : 
halon : halonsvys ; 
co2fld “ECOLOOd % 
coznr : co2dhoser ; 


os 


afffspr : afffsprk ; 
afffhr : afftthsrl ; 


tausys : tausystm ; 
eductor ‘ insteduc ; 
exhfan mexhstians : 
actspr wactsprsy. | 


drystd : drystand ; 


answer Penal: . 

emerover : boolean; (* used to determine when the emergency is over™) 
abmndeck =: boolean ; (* Used to determine if comp above or below mn dk *) 
haztype , BUneIEY De®: (* used to determine the type of hazard, *) 

Me mecoudmmecxtrec, lastrec, meedrec : recordptr ; (~ Pointer Variables “) 


a eisiecacacmi ge 82 EEE Ee Pe ea ie re eee agen ese aee son hag ees RRR) 


a Procedure Continue = 
* This procedure is used to provide a pause for the user to read the 
* information, on the terminal screen before displaying the next menu “*) 


* or informational listing. The user enter a “Y” to continue. 
eee SRR ee Ne ee ee) 


% 


procedure continue ; 


var 

ans : char: 

contprog: boolean ; (* used to control loop *) 
begin 

contprog := false ; 

writeln; 

repeat 


writeln(’Are you ready to continue with the program ? Y/N ‘); 
readIn(ans); -_ 
if(ans = ‘Y’) or( ans = ‘y) then 
contprog := true 
else -. 
__ -writeln(’ Answer yes when you are ready to continue. ); 
until contprog ; 
end ; (* continue *) 


are ae ae Re Tee ca ae Bee ae 2e TA eae AeA Rae Ae ae Ac oe ae acca Ae 


‘ Procedure Printout : 
~ Ihis procedure prints out, information on the compartment pointed to by, *) 


IL 
: passed parameter. [his procedure is called by procedure printcomp. 
aaa agg eS AES AS ASSIS ED AEE NL ROR A HR PR RIN OS PRE MS Me OCR TE 


procedure printout( temprec : recordptr) ; 


begin 
if temprec@ .compabmndk then 

_ write(’0’) ; , 
write( temprec@.dklevel , ’-’,temprec@.frame:3,’- ’,temprec@.loctocl:4, 


’ 


é 


case temprec@.usecode of 


1 : write(’ Admin space an 
2: write(’ Berthing Compartment : ’); 
3: write(’ Passageway seat) 
4: write(’ Head space naa 
5: write(’ Workcenter. ee 
6: write(’ Main Machinery Room :’), 
7: write(’ Boiler Room ae 
8 : write’ Pump room a) 
9: write{’ Emergency Generator :°); 
10 : write(’ Cominuter space ae ee 
11 : write(’ Galley space ae 
12 : write(’ Storeroom oe ae 
13: write(’ Flammable storeroom :’); 
14: write(’ Fuel tank )e 
15: write(’ Water tank ae 
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: write(” Void ae ee 

: write(’ Access Trunk Sa, 

: write(’ Control space 

: write(’ Fan Room ae 
swmatel Repair Locker mug as) 

: write(’ Hazardous materials :’); 

: write’ AMMO Magazine ay 
: write(’ Medical Spaces ae 

CG case =) 


Wh D\O00~ID 


fo) 
a Vv 


case temprec@.instalsystems of 
: writeln(™ NO? 
: writeln(’ Installed eductor ); 
: writeln(’ Installed exhaust fan ’); 
: writeln(’ Active sprinkler sys), | 
: writeln(’ Dry standpipe sprin ler ’); 
: writeln(’ CQ2 Flooding ; 
: writeln(’ CO2 Ho: 
: Writeln(’ H¢ eS a 


: writeln’ T : : 
: writeln(” AFFF Sprinkler % 
: Writeln F hose Reel ’); 
: writeln’ HALON, TAU, and CO2 hosereel }; 
: writeln(’ AFFF HR and CO? hosereel ’); 

end 2 cases: 
end: ( printout - 


Hee RRA AS TE HB HE oR eR Ae A Pe a OR a PE I RE eS ee ee 


i Procedure earn) Print Compartments aie 

* This procedure prints out a listing of all the ship’s compartments *) 
~ that are in the data base. The procedure calls procedure printout *) 
Bd : . 4 : tz 


to print information Oona given compartment. 
MR RB RB AR ASAE Ae ee AR eA a i ee a A SS re 





Or OD CoO ID wt 


= pee pom, pee 


procedure printcomp ; 


var 
P Inte ser 5, 


begin . 
writeln; 
writeln(’ Compt number Use Installed systems’); 
writeln; 
forni:— 1 to numicvel do 
begin nr 
nextrec := uplev(.i.),linkit ; 
while nextrec < > nil do 
egin 
printout{nextrec); Ro! 
NeXthee /— exthec linkit ; 
end ; (* while *) 
ends. (s10m- 
writeln; 
fori1:= 1 to numdecks do 
begin _:. 
nextrec := [wrdk(.1.).linkit ; 
while nextrec < > nil do 
begin 
printout(nextrec); <) 
nextrec := nextrec Jlinkit ; 


end; (* while *) 
lends: (tomes) 
writeln ; 

end; (* procedure printcomp “*) 
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—— Procedure Insertrec : . *) | 
* This procedure is called by procedure loadfiles to insert a record *) 
* in an array of linked list of records. x 


* This procedure contains procedure midinsert to insert a recordin *) 
* the middle of the linked list of records. 4 
a a a ate ace cere NERS Mt OE Roe rene eg EMR AEE ACRE 


procedure insertrec( updw : char; dk, ff : integer ) ; 


procedure midinsert ; 


var, ee . 
recinsert : boolean ; (* used to determine if the record was inserted *) 


begin on 
nextrec := lastrec@.linkit ; 
if nextrec = mil then 
begin aoe 
lastrec@.linkit := newrecord ; 
lastrec := newrecord ; 
end me ae 
EISe ae Olltcrrclscnt 
begin | ; 
eciiseht — adlsemn a 
while (nextrec < > mil) and (not recinsert) do 


begin 
if TEC Bethe > = fr then 
egin. <r ae 
newrecord@.linkit := lastrec elinkit ; 


lastrec’@.linkit ie Wrecond: 
recinsert := true; 
endian: 1h 7) 
else 
begin 
lastheG =— “Tlextrec: ape a 
Mexthec j= Mextteca@,linkit ; 
Reema selse 7 
if (nextrec = nil) and (not recinsert ) then 


egin 
lastrec@.linkit := newrecord ; 
recinsert := true ; 
eG 17} 
end. U while *) 
EiGeee Olver cise.” 
end ; (* mudinsert *) 


(* Start of insertrec *) 
begin - 
ifupdw = ‘T’ then 


begin ae 
if uplev(.dk.).linkit = nil then 
uplev(.dk.).linkit := newrecord 
else 
Sei rts 
lastrec : = _uplev(.dk.).linkit ; 
if once @. rame > fr then 
egin 
: newrecord@.linkit := lastrec; 
uplev(.dk.).linkit := newrecord ; 
nextrec := lastrec ; 
lastrec := newrecord ; 
end (> uf * 
else 
midinsert ; 


end: (* else * 
Slee fee oe 


Oy, 


if updw =-’F’ then 


egin 

aT Ts linkit = nil then 
lwrdk(.dk.).linkit := newrecord 
else 


oan ae 
lastrec :=_lwrdk(.dk.).linkit ; 
if lastrec@ frame = ie them 
begin ae 
newrecord@.linkit := lastrec; 
lwrdk(.dk.)-Jinkit := newrecord ; 
nextrec := lastrec ; 
lastrec := newrecord ; 
end #(“aie.) 
esc 
midinsert ; 
. * us 
(> celser) 
end: (*if F *) ; 
end » (7 procedure insertceus) 
iii iaialk litical aa aaa tin a ite Nal lg i EE 


_ Procedure Loadfiles. pie 

* This procedure reads in the coded information on all the ship’s * 

* compartments from a disk file into a linked list of records. There *)_ 
is One record per compartment on the ship. Loadfiles calls procedure *) 
Insertrec to insert the records in the proper position in an array * 


of linked list of records. 
dein iia ici a a aia a ha a a a ise aa a 88 NE Na 0 


eh 
ory 


. 
st 


mh 


procedure loadfiles ; 


var 
1. (* used as an index *) 
edk, gfr. gzone, gpanc, gvenc, ; 
Spine ucode, getint ; integer; (* used to read imidaraminoma ttces 
abmndk, side, discard: char ; * used to read in data from file * 
rloc : usearray ; (* used to read in data from file *) 
infile : filvar ; 


begin ee . 
al Initialize pointers to Nil *) 
fori:= 1 to numlevel do 


Cgin , 
with uplev(.1.) do 

begin _ 
linkit := nil; 
dklevel := 1; 

end ; (* with *) 

end (alors 
fori:= 1 to numdecks do 


begin . 
with lwrdk(.1.) do 


begin |. 
linkit := nil; 
klevel := 1; 
end ; (* with *) 
endear fOT,") 


ae _ _(* Prepare for input ®) 
assign(infile, “compdata.txt ‘) ; 
reset(infile); . — 
. (* Read in information from file *) 
while not eof (infile) do 


begin | 
with compt do 
begin 
new(newrecord); 
Sa HS abmndk); 
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readIn( infile, gdk, gfr,discard, rloc,discard,side, 


gzone, gpanc, gvenc, gpipngc, ucode, getint ) ; 
newrecord@.dklével := gdk ; 
newrecord(@.frame := gir; 
newrecord‘w.loctoc] := rloc; 


newrecord@.shipside := side ; 
newrecord’@.zone : = eZOne ; 
newrecord’@ .panelcodé := gpanc ; 
newrecord(@.ventcode := gvenc ; 
newrecord(@ .pipingcode := gpipngc ; 
newrecord’@).usecode := ucode; | 
newrecord@.instalsvstems := getint ; 
if abmndk = ‘F’ then 
_. .newrecord@.compabmndk := false ; 
ifabmndk = ‘T’ then 

Memrecona a. .compabmndk := true ; 
newrecord@.linkit := nil ; 
insertrec( abmndk, gdk, gfr): 
enden | Withee} 
end ; \ while *) 
close (infile ) ; 


end; (* loadfiles *) 


eee yeh a mma ele a aac ek ERE RR 


we afte 
ae 


Procedure Loaddata ee) 
* This procedure reads in the data concerning the ship’s installed *) | 

* damage control systems from a disk file and stores the information *) 

in an array of records for each svstem. a 
aaa gcc hE TERRE Ce EAE REAR END Sen eS Ree ©) 


procedure loaddata ; 


ate 
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“ee 


var 
moe beper . | . used as an index *) 
discard : char ; (* used to read in and discard seperators *) 
mae > filvar : 


begin _ __(* Prepare for input *) 
assign( infile, “electpan.txt ); 


reset(infile); 

_..) ( Read in data from file *) 
i — eee initialize to 1 * 

while not eof (infile) do 


egin 
‘with panel(.1.) do 


n 
readIn(infile, panlcode, discard, discard, panelnum, discard, 
discard, panlocat); 


a 
end; (* with *) 
eG. eine *) 
close(infile); 


one . Prepare for Input *) 
assign( infile, ‘ventcont.txt’); 


reset(infile); . 

eee cad in datamimom les) 
t:— | e@initialize to 1 *) 

while not eof (infile) do 


egin 
with vent(.1.) do 


readIn(infile, vntcode, discard, discard, contnum, discard, 
discard, discard, contlocat); 
ioe 1 
end: (* with *) 
end; (* while *) 
close(infile); 
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* Prepare for Input * 
(inte, Petes txt’): P ) 


(* Read in data from file *) 
= | * initialize to 1 * 
nile not eof (infile) do 


resettnh 
reset(infil 


egin 
with closure(.i.) do 


egin 
‘eadin(infile zoneloc, fitting, fitlocat ); 


a - with | *) 
end: While *) 
closclinfile). 


(* Prepare for inputs») 
assign( infile, ‘actspk.txt’); 


reset e); 

(? Read 1 in data from file *) 
-= | ; (* initialize to 1 *) 

vale not eof (infile) do 


egin 
with ACESP Els 1.) do 


eg 
readin(infile dkorlev, fr, discard, thirdpt, discard, 
valvenum, ‘discard, discard, location): 


ith *) 


nr (* 


end; (* while (eit 
secce ay 


Prepate fon input 
assign( infile, ‘afar $x t), 5 pur’) 


reset(infile); 

( Read i in data from file *) 
>= 1 ; (* imtialize to 1 *) 

e hile not eof (infile) do 


“with, a inte 1.) do 


eae dkorlev, fr, discard, thirdpt, discard, 
valvenum, ‘discard, discard, location); 


end: a ‘with is) 
end: (* while *) 
close(infile): 


(* Prepare for Input *) 
assign( aye ‘afffspk.txt’); 


reset(infile); 

(* Read in data from file *) 
(lisse initialize to 

= hile not eof (infile) do 


ees afffspr(.i.) do 


e 
geese dkorlev, fr, discard, thirdpt, discard, 
valvenum, ‘discard, discard, location); 


se * with #) 
end; (* while *) 
close(infile); 


ie Fisgoeue for Input *) 
assign( infile, ‘co2flod.txt’); 


reset(infile); 

(* Read in data from file *) 
i:= | 3 (eSsigiaze toca 

while not eof (infile) do 
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begin 
with co2fld(.i.) do 


In e . e ° 
readin(infile, dkorlev, fr, discard, thirdpt, discard, 
valvenum, discard, discard, location); 


ies ral : 
end; . with *) 
Sole cits =) 
close(infile); 


i Ne Prepare for Input *) 
assign( infile, ‘co2hrfl.txt’); 

reset(infile); 
: _...,  (* Read in data from file *) 
i > sien initialize to | 7) 
While not eof (infile) do 


egin ; 
with co2hr(.1.) do 


egin 
readIn(infile, dkorlev, fr, discard, thirdpt, discard, 
valvenum, discard, discard, location); 


i= 1 
end; (. with *) 
end) (7 while”) 
close(infile); 
CEA 
(* Prepare for Input *) 
assign( infile, “drystd.txt’); 


reset(infile); | 
_.. .. (* Read in data from file *) 
= lee initialize tom: 
while, not eof (infile) do 
egin . 
with drystd(.1.) do 


in 
Srevatnanniles dkorlev, fr, discard, thirdpt, discard, 
; We eRUO, discard, discard, location); 
1 ‘= l ° 
end; " with *) 
end; (* while *) 
close(infile); 


a ; (* Prepare for Input *) 
assign( infile, “exhfan.txt’); 


reset(infile); . 

pen Read imidata irom file”) 
Pelee idalize to |! © 
while not eof (infile) do 


egin 
with exhfan(.1.) do 


in 
readIn(infile, dkorlev, fr, discard, thirdpt, discard, 
; ere enn, discard, discard, location); 
1:= j 
end; (* with *) 
end; (* while *) 
close(infile); 


“Prepare for Input.* 
assign{ infile, alone? asia 


reset(infile); 
eee FO lcead th datalirom ite #) 
mel 2 ( imtialize to | *) 
while not eof (infile) do 
egin , 
with halon(.1.) do 
egin ; 
readIn(infile, dkorlev, fr, discard, thirdpt, discard, 
valvenum, discard, discard, location); 


Sy, 


IS ioe VS 
end; (* with *) 
end; (2 while ¥) 
close(infile); 


* Prepare for Input *) 


¢ 


- ( 
assign( infile, ‘ineduct.txt’); 


reset(infile); 

, +... |” Read inedata fromonless) 
Ve = | initialize tose 

while not eof (infile) do 


egin 
with eductor(.i.) do 


€gin : . 
readIn(infile, dkorlev, fr, discard, thirdpt, discard, 
valvenum, discard, discard, location); 


oe . (" Prepare for Input *) 
assign( infile, ‘tafesfil.txt’); 


reset(infile); . 

. _...,.  (* Read in data from file *) 
1:= 1; (* initialize tol * 

while not eof (infile) do 


egin 
with tausys(.1.) do 
oO 


egin e ° ° e 
readIn(infile, dkorlev, fr, discard, thirdpt, discard, 
valvenum, discard, discard, location); 


end; (* while * 
close(infile):; 


end; (* loaddata *) 


Hee He He Se He He RN AR 2 EAE oe ee ee ee ee ee 


aon Procedure getcompnum i) 

* This procedure requests and reads in the compartment number of the * 

* space where the emergency has occurred. The record of the submitted * 

* compartment is found and pointed to bv the pointer variable needrec.*) 

TEAR fe SAS ARG AG AE AE a A re IR 2 A 


procedure getcompnun( var needrec : recordptr ); 


var 
getchl, eetch2, getchs chan 
rdklevel, (* used to read in reported deck level *) 


rdframe :integer; (* used to read in frame number 
cfound : boolean; (* used to determine if comp found *) 
readloc : usearray; (* used to read in use of comp “*) 


begin 

cfound := false; 

repeat; 
writeln; , 
writeln(’ Give the compartment number of the location of the emergency .’); 
writeln(’ Enter the compartment number in format _s_ -) hi, 
writeln(’ Example: 5 600-E. ; NOTE: The spaces are important. ); | 
writeln(‘If the exact location is unknown give the closest location Known. ); 
writeln(’ The format_must be accurate. For example “1-Q” vice “I-q” .’); 
Gd ECTS DN getch2, rdframe, getch3, readloc) ; 
writeln: 


if Bn = ‘0’ then 
egin 
abmndeck := true ; 
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case getch2 of 
Sarakievel : 
2 : rdklevel : 
3°: rdklevel : 
4’ : rdklevel : 
ee tdkieve! : 
‘6: rdklevel : 
perk level: 
8’ : rdklevel : 
Perk levell - 
end 2 - eascua 
Clic (acai: *) 
else 
begin 
abmndeck := false; 
case getchl of 
: rdklevel : 
: rdklevel : 
: rdklevel : 
: rdklevel : 
: rdklevel : 
: rdklevel : 
: rdklevel : 
: rdklevel : 
srdklevel: 
end ae case} 
end: (> else %} 


if abmndeck then . . 
writeln( The compartment number submitted 1s 0’, rdklevel,’-’, 
rdframe, ‘-’,readloc 


OMO~YNA mn BWN 


| | ee | | | 
\O0O~ION Un BPWhore 


OOAIDWNEWN 


lse 
writeln(“The cgmpartment number submitted 1s ’, rdklevel,’-’, 
rdirame, ‘- ‘,readloc); 
if abmndeck then 
egin ae 
nextrec := uplev(.rdklevel.).linkit ; 
While (nextrec <> nil ) and (not cfound ) do 


begin 
if ( nextrec@.frame = rdframe) and (nextrec@.loctocl = readloc) then 
egin 
needrec := nextrec ; 


cfound := true ; 
emde(c 2 if" } 
e 


nextrec := nextrec@).linkit ; 
MeenGhe | wvinile >) 
if not cfound then . 
writeln(’ Compartment number is not in Ship’s data file. Check ’, 
compartment number. ); 
Sinlel (eee) 


else 
begin a 
nextrec := lwrdk(.rdklevel.).linkit ; 
na (nextrec < > nil ) and (not cfound ) do 
egin 
= pa pent e@ inate = rdframe) and (nextrec@.loctocl = readloc) then 
egin 


needrec := nextrec ; 
cfound := true ; 
eng (24) 
else 
begin ae 
nextrec := nextrec@.linkit ; 


Sores 
end: (* while *) 
if not cfound then 
writeln(’ Compartment number is not in Ship°s data file. Check ’, 
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‘compartment number. ’); 
eG eelse. ) 
until cfound ; 


end ; (* procedure getcompnum *) 


eR A A eR OR ee ee ee 


Procedure (unkwnature) Unknown Nature a) 
This procedure is called when the nature of the emergency is not 4 
* known . The procedure provides guidance to the user on the methods *) 
¥ that. can be used to determine the nature of the emergency, a) 
aida tah ial ili heidi ENT 


procedure unkwnature(needrec : recordptr) ; 


OM g 


4% 


egin 
~ writeln(‘Send investigators to the area to investigate. ’) ; 

if needrec@.usecode = 21 then . 
writeln(’ Hazardous materials in space. Possible source of fire’, 

. or fumes: ): 

if needrec@.usecode = 13 then ; 

-_ writeln( Flamimable Storeroom. High Fire Danger. ’); 

if (needrec@.pipingcode > 5) and (needrec@.pipingcode < 7) then 
writeln(” Possible toxic gases from plumbing svstem. ’); 

eee his procedure will be developed futher in the future.’); 

writeln; 

end; (* procedure unkwnature *) 


iii la ial ai iii Madi di iiid Be M Meeie eG Ee RE 


Procedure (natknown) Nature. Known . my 
This procedure 1s called when the nature of the emergency is known. *) 
he procedure calls perinjurv.in the event of an injury to personnel * 
and calls procedures boundaries, idensource, elimhazard, recover, in *) 
the event of fire, flooding, or fumes . iD) 
This procedure contains procedures fumetest, safeprec, perinjury, ™) 
boundaries, idensource, sysguide, elimhazard, recover, and ten =) 


similiar Get Svstem information Procedures. ~) 
Be BAR Ge AN a se A A AS I a A ee 


% 


we ot vw <6 0 oS & 
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procedure natknown(needrec : recordptr) ; 
var 


hazcode : integer; (* used to identify the type of hazard *) 
hazsource : integer ; 


Ee A ae Se a a SS he Se Oe re ee Oe a ee a 


ioe Procedure Fume Test ( fumetest) *) 
‘ This procedure provides guidance on the proper tests to conduct after 3 


so 


x 
* a fire is extinguished or when fumes are discovered in a compartment. * 
* Eumetest is called by procedures idensource and recover, és 
MDE Ha DA A A HH Ae Oe A sR ee a 
procedure fumetest( needrec: recordptr ; haztype : emertypes; 

var fumtype : integer’); 


Xe Xe fs oe He 


var ee 
fumefnd : boolean; (* used to determine if nature of fumes found *) 


begin 
fumefnd := false; 
if haztype = fire then 
begin. 
writeln(’ Conduct the following tests:  ); 
writeln; 
writeln(’ Test for explosive gases .’); 
writeln(’ Test for oxygen. r oe 
writeln(’ Test for carbon monoxide. ); 
writeln(’ Test for carbon dioxide.’); 
writeln;: 
end: (* if haztype fire *) 


62 


if haztvpe = fumes then 
begin, 
writeln(’ Conduct the following tests: ’ ); 
writeln; 
writeln(’ Test for explosive gases .’); 
writeln(’ Test for oxygen. ’ F 
writeln(’ Test for carbon monoxide.’); 
writeln(’ Test for carbon dioxide.’); 
if needrec@.usecode = 10 then 
-_ writeln(” Test for hydrogen sulfide. *); 
if (needrec(@).usecode < 9) and (meedrec .usecode > 5) then 
__ writeln(” Test for chlorine ’); 
if needrec@.usecode = 21 then 
writeln( Test for all hazrdous gases. ’); 


~ 


eligi Maztype fumes ~) 


repeat 
"weriteln( What type of fumes are present in the space ? ’); 
writeln(’ Enter the appropriate number. ’); 
Writeln; 
writeln(’ Compartment Tested, Adequate Oxygen, ’); 
writeln(’ and no fumes Detected = (.’ ); 


writeln(’ Explosive gases =|: 
writeln(’ Hvdrogen Sulfide =e): 
writeln(’ Bénzine = 3°); 
writeln(’ Chlorine = aoe 
writeln(’ Carbon Monoxide = Oe), 
writeln{; Carbon Dioxide = 19) Ee 
writeln(’ Unknown Fumes = 7’); 
Writeln;. 

geo Aaa ere 


if Urania > 7.) or (fumtvpe < 0 then Ae 
writeln(’ Need a valid input, please try again. ’) 
else 
fumefnd := true; 
until fumefnd_ ; 
ema ; (~ {umetest ~) 


EA SE Re ACE ED RR A oe aa a eae eae) 


i Procedure (safeprec) Safety Precautions , 

* This procedure provides safety precautions to the user for the type. *) 

* of hazard and it’s source that are passed to the procedure. i 

~ Saleprec is called by procedures idensource and elimhazard. 
ae ESE ER TREES ES SEEN SEE SEE RRA EA BEES) 


procedure safeprec( haztype : emertypes; hazsource : integer ); 


begin | 
writeln; 
if haztype = fire then 
begin 
case hazsource of 
ieee — (~ Class A e ee. 
writeIn{’ Ensure fire boundaries are maintained.’); 
aren eos that firefighters are properly equiped.’); 
end: (* 1+ 


2:Oegin |. { Class B * _——— 
writeln(’ Ensure fire boundaries are maintained. ); 
writeln(’ Ensure that firefighters are properly equiped.’); 
writeln(’ Qil spray fires can get out of control quickly.’); 
writeln{’ Secure fuel source and localize fire as soon as ); 
writeln(’ possible without endangering personnel.’ ); 

ema, (7 2 *) 


3: begin . { Class C *) ; 

writeln(’ Ensure electrical power is secured.’); 
writeln(’ Ensure fire boundaries are maintained.’); 
writeln(’ Ensure that firefighters are properly equiped.’); 
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4: begin | (* Class D 2 . 

writein(’ Ensure fire boundaries are maintained.’): 

writeln(’ Ensure that firefighters are properly equiped to ?? 
writeln(’ handle all types of fires. It is extremelv inportan 
writeln(’ to determine the nature and localize the chemical’); 
writeln(’ involved. Some materials react violently with water.’); 
writeln(’ Some metal fires are extremely difficult to extinguish. ); 
writeln(’ Metals such as magnesium, sodium, titanium,zinc, ’); 
Writeln(’ zirconium, and pode are class _D” combustibles.’); 
writeln(’ Refer to NAVSEA Tech Manual Chapter 9930 ,’); 
Writeln ' FIREFIGHTING-SHIP for further information: 


end; (24 
end ,(™ case *) | 
eng: il Nazty pe line: .) 


if haztvpe = flooding then 
begin 
case hazsource of 


1,2,3 : writeln(‘Ensure electrical power to the space is secured.’); 


4: begin 
: Writeln(’Put out the smoking lamp throughout the sles, 
writeln{’Ensure electrical power to the space is secured. ’); 
writeln(’Secure the source of fuel as soon as possible.’); 
Ns Use non-sparking tools when working on the fuel system.’); 
sigtag 
Be case *) 
if ha 


enda(s ztype flooding *) 
if haztvpe = fumes then 
egin 


case hazsource of 
1: writeln(’Put out the smoking lamp throughout the ship.’); 











2: begin 
Writeln(’ eh Geren Sulfide is highly toxic. All personnel who’); | 
writeln(’ might be exposed in the course of finding and elimating ); 
spel the source of the fumes should use breathing devices. % 

end ; 

3: begin. 
writeln(’ Benzine can be harmful to people, All personnel who’); , 
writeln(’ might be exposed in the course of finding and elimating ); 
jee the source of the fumes should use breathing devices. r 

enae 

4: begin | ; 
writeln(’ Chlorine gas can be deadly. All personnel who’); le 
writeln(’ might be exposed in the course of ipetegn e050 elimating ); 
juss the source of the fumes should use breathing devices. ; 

end ; 

5: begin | 
writeln(’ Carbon Monoxide, can be deadly. All personnel who’); | 
writeln(’ might be exposed in the course of finding and elimating ); 
Beha the source of the fumes should use breathing devices. y 

end ; 

Ober a re : 
writeln(’ Carbon Dioxide in large doses 1s toxic, All personnel who’); 
writeln(’ might be exposed in the course of finding and elimating ’); 
Writeln(’ the source of the fumes should use breathing devices. 

end ; 
des case 


end; (’ 0 
end; (* ifhaztype fumes *) 
end ; (* salepree. | 
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_ Procedure | eam ) Personnel Injury |. *) ; 

* This procedure determines the nature of the personnel injury and ~) 
calls ae Sep io Puate procedure to provide guidance for emergency a) 
aid an si 


first casualty transportation precautions . 
ea uate age ie ata agg ch Te eceectn eo PE RAE A ee ee EA AE RE) 


procedure perinjury(needrec : recordptr ); 


var 
anschar : char; 

ans, ‘ , : 

tranprec :integer ; (* code for transportation precautions *) 
medemcpt : boolean ; (* used to determine when medical emer over *) 


LTHTHR HPT PRT ESR eH PREAH ETHER PRA SEa RETR HAHRHR EC HRA) 


‘ VARIOUS INJURY PROCEDURES 

mer cCOccaures headinj. spimaliny, extbieed, (ORD OR), eto Sats os 0) 

* severlimb, burns, inhalefumes, electshock, drowning. and unknownill os) 
* are used to provide guidance in emergency first aid to the emergency * 


response team. One of these procedures will be called by procedure” * 
perinjury in the event of a personnel injury is 


teededdbiede bedded be dds Ree 


procedure headinj(var tranprec: integer) ; 


x i 


begin 
tranprec:= 2; 
end: (* headinj *} : 
procedure spinalinj(var tranprec: integer ); 
begin 
Bran pieces 2 | 
end; (* spinalinj *) 
procedure extbleed( var tranprec :integer ); 


begin 
tranprec := 5; 


elds, (> extbleed ~) 
procedure intbleed(var tranprec : integer ); 


begin 
tranprec := 1; 


end, (* intbleed *) 
procedure brokeleg(var tranprec : integer); 


begin 
tranprec := 4; 


end ; (* brokeleg *) 
procedure brokearm(var tranprec : integer ); 
begin 
feat heey — ane 
end ;(* brokearm *) 
rocedure severlimb(var tranprec: integer ); 
egin 


teaaprec 1 = 5 ; 
end; (* severlimb *) 
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procedure burns( var tranprec ‘integer ); 
egin . : wie 
writeln(’ Try to limit contact and keep the burned area as clean as’): | 
writeln(’ possible. Have the Hospital corpman apply temporary dressings.’); 
writeln(’ Use wet towels in the stretcher if needed. 
tranprec := 1; 
end aie abuts. = 


procedure inhalefumes(var tranprec : integer ); 


begin 
tranprec := 3; 


end ;(* inhalefumes *) 
procedure electshock( var tranprec ‘integer ); 


begin 
tranprec:= 3;. 
end ; (* electshiGex =) 


procedure drowning(var tranprec : integer ); 


begin 
~ writeln(’ If the victum is unconsious and not breathing have personnel’); 
writeln(’ on the scence begin mouth-to-mouth breathing immediately.’); 
writeln(’ Call sickbav and have them deliver oxygen.to the victum. ”); 
writeln(’ If there is no heartbeat , give external cardiac massage. ’); 
tranprec := 3; 
end ("s drowning) 


procedure unknownill{var tranprec : integer), 


begin 
[ranpree = —ale, 
end ; (* unknownill *) 


iliac aaa alah a ile att aia NLT RET oe ei 
i Procedure, Transport Precautions (tranport) os) 


* This procedure provides guidance for the safe handling of injure se 


* personnel that are to be transported. 
iii ii ala la aa aaah ala a eel i ais ie 2 ua 


procedure tranport(tranprec : integer) ; 


begin . 
writeln; 
case tranprec of 
I : writeln;: 


2 berlin: Sep 
writeln(’ Immobilize the patient in the stokes stretcher. ); 
jets Be careful not to jar or shake the patient. ); 
end; 


3: writeln(’ Maintain CPR during transport if required .’); 
4: begin 


writeln(’ If the patient is to be transported on a stretcher, °); | 
petess ensure that the temporary Cast is properly supported.’); 
end: 


5: writeln(’ Maintain pressure on the wound during transportation. ’); 
end 4 eee ascins) 


end ; (* tranporta’) 
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: eee occanie Best ROUTE rome. ae) 
* This procedure Pea the best route to transport injured i) 

we personnel to sickbay. This procedure could be developed futher. |“) 
aM ee AE EE RE Ne eT See SRR See Re NOE He oe oe 


procedure bestroute(needrec :recordptr ); 


writeln(’ closest safe route. ’); 
if (needrec@.usecode = 22) and (needrec(@.dklevel < > sickbaydk) then 
_.. writelnC Use Ammo elevators if possible to move. injured_personnel.’); 
if (needrec@.frame < sickbavfr) and (needrec@.shipside = ‘S’) then 
writeln(’ Cross over to the port passageway on the messdecks.’); 
end ;(~ procedure bestroute *) 


egin . ) . oe : 
writeln ee pen Or escort patient to sickbay ‘,sickbay,’ by the ’); 


(** Start of main procedure personnel injury **) 


begin 
medemcpt := false ; 
repeal, ; ; 
writeln(’ What tvpe of medical emergency has occurred ?’) ; 
writeln(’ Enter the appropriate number below : ’); 
writeln; | 
writeln{’ Head [njurv — , = | 3. 
writeln(’ Back or neck Injury = 4 
writeln(’ External Bleeding = 3h 
writeln(’ Internal Injury = 4 Oe 
writeln(’ Broken Leg ek 
writeln(’ Broken Arm = 6 a 
writeln(’ Severed Limb = 7’), 
writeln{’ Serious Burns = § 


ed 
Re e 
—?” 
~~ @ 


writelni’ Inhalation_of Fumes 


writeln(’ Electrical Shock = 10’): 
writeln(’ Drowning zoe Uo 
writeln(’ Unknown Illness = 12); 


writeln: 
readIn(ans) ; 


case ans of. 

: headinj(tranprec) ; 
spinalin eet 
extbleed(tranprec) ; 
intbleed(tranprec) ; 
brokeleg(tranprec) ; 
brokearm(tranprec) ; 
severlimb(tranprec) ; 
burns(tranprec) ; 
inhalefumes(tranprec) ; 
electshock(tranprec) ; 
drowning(tranprec) : 

> unknownill(tranprec) ; 
elideme scase ") 


NO. O00~ID nn BW 


tranport(tranprec) ; 
bestroute(needrec) ; ; , 
writeln(’ Are there any more medical emergencies ? Y/N ’); 
readIn(anschar),; | _ 
if (anschar = “N’) or (anschar = ‘n’) then 
medemcpt := true ; 

until medemcpt ; 


end ; (* procedure personnel injury *) 
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BA Oi i ie Gi ie 2 ie a i i i i i ie Gi ee i ie i i i Gi i i i i ie i i i i i i ie i i i i i ea i i 


ae - Procedure Boundaries _ 

* ‘This procedure provides fire, flooding, or fume boundaries to contain *) 

* the hazard to one zone or area of the ne The procedure also lists * 
ie Set compartments in the area of the ship to be cleared of . * 

* personnel. The procedure contains procedure berthcomp to determine if *) 


 oerthing compartments are in the Zone. 
ia iia ada tail iitai a tO eee 


procedure boundaries(needrec : recordptr ; haztype : emertypes) ; 


var. 
iF (* used as a counter *) 
templ> tempZ2mteger: (* used to manipulate integer data *)_ 
bertharea : boolean ; (* set if berthing comp 1s in the zone *) 


(Ree Procedure Berthcomp “3 
procedure berthcomp(templ ‘integer ; var bertharea :boolean ); 


begin . . 
while nextrec <> nil do 
egin 
if (nextrec@.zone = templ) and (nextrec@.usecode = 2 ) then 
egin 
i not bertharea then | 
writeln(’ The_following Berthing Compartments should be cleared :’), 
writeln(nextrec@.dklevel, - ‘.nextrec@.frame, - ’, 
nextrec@.loctocl ); 
bertharea:= true; 
nextrec := nextrec@.linkit 
end= (=o ”) 
else a 
nextrec «= nextrec@..limkit: 
ead (2 while") 
end 7(* (berthcomp} 


(* start of boundaries *) 
begin 
bertharea := false ; 
temp! := needrec@.zone 
if Tope Late ese ok nia then 
egin 
“‘nextrec := lwrdk(.needrec@.dklevel.).linkit ; 
ssl goreae ice l elegy 
if sites cls evel < numdecks then 
egin 
Asie 2:= needrec@.dklevel + 1; 
nextrec := lwrdk(.temp2.).linkit : 
temp]: = needrec@ zone a 10 
bert] comp(temp1, bertharea) 


end 4 
if needrec@.dklevel > 1 then 
begin 
temp2 := needrec@.dklevel - | ; 
nextrec := hwrdk(.temp2.).linkit 
templ := needrec@.zone - 
berthcomp(templ, bertharea) ; 
enGaie if = 
end (* if not above main deck *) 


else 
begin wane 
nextrec := Upley( needed eae 
of NG osneysl iste , bertharea) ; 
if Me eae rs evel < numievel then 
egin 
con 2 >= needrec@ -dhlevelaae le: 
nextrec := uplev(.temp2.).linkit ; 
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templ := needrec@.zone - 10; 
_ berthcomp(templ], bertharea) ; 


end ; 
if needrec@.dklevel > 1 then 
begin 
temp2 := needrec@.dklevel - | ; 
nextrec := uplev(.temp2.).linkit ; 
fempll: = needrec@ zone +_ 10: 
bert 1comp(temp1, bertharea) ; 
end; (* if * j 
end; (* else above main deck *) 
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writeln; 

writein(’Set the following boundaries to contain the hazard :’); 
writeln; 

fori:= 0 to numfittings do 


egin 
with closure(.1.) do 
egin 
if zoneloc =_needrec@.zone then 
writeln( ‘Fitting No. ‘,fitting, located ’,fitlocat ) ; 
end; (* with a) 
end: s( Loies) 
continue; 
if haztype < > fumes then 
egin | 
jori:— 0 to numelpanel do 


egin 
with panel(.i.) do 


egin 
if panicode = needrec@.panelcode then 
begin. 
writeln; 
writeln(’To secure electrical power_to, compartment ’, 
_ needrec@.dklevel,’ -’,sneedrec@.frame, -’,needrec@.loctocl ); 
writeln(’Secure power at panel No. ‘,panelnum,’ located in’, 
panlocat ) ; 
ends: (aaa) 
end; (* with *) 
end. (; Ore.) 
sane!) 
if haztvpe < > flooding then 


begin 
Ori:= 0 to numventcon do 


egin ; 
with vent(.1.) do 
begin 
if vntcode = needrec@.ventcode then 
begin. 
writeln: Jae 
writeln(’To secure ventilation to compartment ’, 
_ needrec@.dklevel,’ -',.needrec@.frame, -’,needrec@.loctocl ); 
writeln(’Use Controller No. ‘,contnum, located in’, 
contlocat ) ; 


end; 
end; (* procedure boundaries *) 
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Bi ie ee ip i ee ee 3a i 2 2 2 i ie i i 2 i ie i ie 2 i i i ee ide ie > I i i i i i i i ie i i i bi) : 


* Procedure (idensource) I[dentifv Source i 
* This procedure provides guidance on methods to determine the source *) 


* of the identified hazard. | 
Me skews visio aXe Me ote ols sfe vic ke oft ade ofc ic oc os ofc ob oe oe ote otc she ofc oft oe ofc oie os fe ofc of of fs fz ote 222 ote oh Me siete he oe Me Nz fe sic He oe oe he he ok ok Si ots oe he oe He ofc oie oi He oe ok i 


procedure idensource(needrec: recordptr ;haztvpe:emertypes ; 
var hazsource ‘integer J ; 


var 
ans : char 
valentry : poole (* used to determine if a valid entry was made *) 
begin 
valentry := false ; 
writeln: 
if haztype = fire then 
begin 
‘Tepeat 
writeln(’ What tvpe of fire 1s this ? ’ 
W Bales ‘Enter the appropriate number below: ’); 
writeln: 
writeln('Class A fee er, wood, materials etc.) d = 1’); 
writeln( Class B rocarbon or flammable hiqu ids)) "2a 
writeln(’Class C {electrical fire ) 5 
writeln(’Class D { Chemical fire ) = 4") 


writeln(’ Type of fire unknown 

writeln;: 

readin(hazsource): 

etheeeainee 2 4} or (hazsource < OQ ) then 2 
| writeln(’ Invalid input, please try again. ’) : 

else , 


b 


valentrv := true; 
if hazsourcé = 0 then 


egin 
*wtiteln( ‘Send out investigators to determine type of fire.’); 
valentry : false ; 
Y end (Ihe 
until valentry 


writeln(’ Is the source of the fire known? Y/N ° ); 


readIn(ans).. 
if(ans = “N’) or (ans = ‘n’) then 
begin — 
case 2 HERASMC of 
egin. 
if needrec@.usecode = | then 
writeln( Admin WO woee Paper liress): 
if (needrec@.usecode < ne neesrec@. ‘usecode > 4) then 
writel In( Potential ofa class bien), 
if needrec@.usecode = 3 then 
writeln(’ Berthing compartment. , 
Teele: bedding fire. Hazardous fumes possible. ’); 
end (ean) 
2: begin 


if (needrec@.pipingcode < 13 ) and 
” tnbed orecOn en >) lien 
Wr iteln( Flammable li 


uids in pipin : 
(paeedrecta -usecode = 13 Hen ET, 


ya n(’ Flammable porecaenn a5 
spree Sti 


3: writeln(’ ae electrical equipment in the space.’); 
4: begin. 
if needrec@.usecode = 21t 


writeln(’ ontact fe een “dklevel,’ -’ needrec@.frame, 
, needrec(@).locto at custodian for detail ’, 
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inventory of materials. °); 


end (= 4 
end; (* case hazsource *) 
end; (*ifans = N *) 
onde it fire *) 


if haztype = flooding then 
begin 


repeat 
ate What is flooding the space ? ’); 
writeln(’ Enter the appropriate number. ’); 
Writeln; 
writeln(’ Salt water =) 
Writeln(’ Fresh water = 2°); 
writeln(’ Chilled water = 3 ); 
Writeln(’ Fuel oil = ri 
writeln(’ Unknown = 0’); 
writeln: 


readIn(hazsource); 

if (hazsource > ) fo) ok © 8t-VA10) 00 cele nO aes ¢ 
writeln(’ Invalid input, please try again. ’) 
else 

__. Valentry := true ; 
if hazsource = 0 then 


egin | ; 
writeln(Send out investigators to determine type of, 
flooding.’); 
valentry := false ; 
cud *) 
until valentry ; 


writeln(’ Is the source of the flooding known? Y/N ’); 
readin(ans): | 
if (ans = ‘“N’) or (ans = ‘n’) then 
begin a 
if (hazsource =1 ) and (needrec@.pipingcode = 3) then 
writeln(’ Check firemain in space 7); 
if (needrec@.dklevel > 3) and ( not needrec@.compabmndk ) 


en 
writeln(’ Check for a leak in the hull or any nearby’, 
floodable voids. ’); 
endaGe ifs 


etd (ooding *) 


if haztvpe = fumes then 
egin 
fumetest(needrec, fumes, hazsource); 
safeprec(fumes,hazsource); 
writeln; iat 
if (hazsource = 2) and (needrec@.pipingcode = 6) then 
writeln(’ Possible break 1n plumbing vent. ’) ; 
repeat 
aren Have additional fumes been discovered ? Y/N’); 
readin(ans),; _ 
if(ans = “Y’) or (ans = ’y’) then 
begin _ 
umetest(needrec, personinj, hazsource); 
safeprec( fumes, hazsource); 


mend, oe 
until (ans = ‘N’) or (ans = ‘n’) 
end: (3 fumes *) 


ene Is the compartment number for the location of the emergency ); 


writeln(’ correct as originally reported ? Y/N ° ); 
readin(ans);_ 7 
if(ans = “N’) or (ans = ‘n’) then 


_getcompnum(needrec) ; 
end; (* procedure idensource *) 
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we 
** 


nas 


Procedure (sysguide) System Guidance. a 
ance on the proper operation of the *) 


me rocedure provides gu 
* installed damage control system that 1s inputed by the parameter *) 
ofs 5 td 
svstninum 
aa ata te lela etait ieee 8 RE GE OE 


procedure sysguide(systmnum : integer) ; 


begin 


writeln: 
case systmnum of 


eee. 


tJ 


egin 
~ writeln(’ To operate the installed eductor system, open the (OVBDY); 
writeln(’ overboard valve first, then the activating water (ACTW),’); 
Writeln(’ and finally open the bilge or main drain SUCT) valve.’ 
ye 2° secure the eductor uSe the reverse order of lineup.’); 
end: (* 7? 


° 
b 


: begin 


writeln(’ To operate the installed exhaust fan, open any closed_’); | 
writeln{’ exhaust, vent dampers and then activate the exhaust fan ,’); 
writeln(’ at the given controller. In the event of a fire, secure’); 
writeln{’ the fan at the given controller and then close the ’) 
writeln( exhaust vent dampers. ’); 

VqVS ey ee) 


° 
5) 


sprinkler system, open the ’); 

Writeln(’ given control valve. ’): 

writeln(’ To secure the el close the control valecor seus 
the"C@ 7): 


end (2 ay 


n 
wtelat To operate the active 


: begin 


’ To use the dry standpipe , connect a firehose to the ’); 
given fitting. For plain saltwater use a fire station.’); 


writeln i 
Pi AFFF use a portable FP-180 proportioner.’); 


writeln 
jreitein 


end 4 


: begin 


writeln(’ Before operating the installed CO2 flooding system, ’, 

first ensure that’); 
writeln(’ all personnel are out of the compartment to be flooded.,’); 
writeln(’ All supply and exhaust ventilation should be secured. °); 
writeln(’ Ali opening to the compartment should be closed. ’); 
writeln(’ To operate the CO2 flooding system, pull the given control 
gen sand e firmly enough to break the seals on the CO2 cylinders 

end: (* §* 


: begin 


writeln(’Before operating the installed CO2 hose reel system, °); 
writeln jal the given control handle or lever firmly enough to ); 
writeln(break the seals on the CO2 cylinders. Use the horn in a); | 
writeln Seep eect ee directing the CO2 at the base of the fire.’); 
writeln(’Use the bail on the horn fo control the flow of CO2. ‘); 
writeln(’For futher information look at NAVSEA tech manual, 
‘Chapter 9930 Firefighting -Ship .’); 
ema; (*° 6 *) 


: begin 


writeln(’ Before operating the installed HALON system , all supply’); 
writeln(’ and exhaust vent dampers should be closed if possible, ); 
writeln(’ and all fans serving the space secured. All personnel ’); 
writeln(’ should be out of the space_or in the process of leaving ); 
writeln(’ the space. To activate the HALON svstem use the given); 
writeln(’ local or remote pneumatic actuators. Breathing apparatus ); 
writeln(’ should be, used Ya entering a space flooded ’, 
with HALON. ’); 


a2 


end 7 =) 


8 : begin 

writeln(’ To operate the Twin Agent Fire Extinguishing System , ’); 
writeln(’ remove the safety clip and pull the give anos Meewiinder ) 
writeln(” valve lever. This activates both the AFFF and PKP systems’); 
writeln(’ through an interlock valve. Once activated, either agent’); _ 
writeln(’ discharge may be shut_off at any time by opening or closing 
writeln(’ the pistol grip shut off nozzles. °’); a) 
writeln(’ [o secure the TAFES system follow the procedures given in ’) 
pare “ss A Tech Manual Chapter 9930, Firefighting-Ship. ‘); 

end: (* § * 


9: begin 
: writeln(’ To operate the AFFF sprinkler_system, operate ’); | 
writeln(’ given fittings. Ensure that the Fog Foam station 1s ’); 
writeln Pa by personnel who will keep the tank filled.’); 





ena, {~ 9 
10: begin. 
writeln(’ To operate the AFFF Hose Reel System , open’); 
writeln(’ the given control valve . °): 
writeln(’ To secure the Hose Reel follow tng procedures given in’); 
qrreln Seo Tech Manual Chapter 9930, Firefighting-Ship. ’); 
end: (# . 
end * =(~ Case * 
writeln; 
continue; 


end; (* sysguide *) 
tHE BAPBERABBRBARBEPREBEPE ERE RRe RR R eee eeeY 3 : eas 
BRR at CREPES EEN ROE RVG ox SRO eats Hee reapare tna gA HTH SET TTT ) 


* The following ten procedures are called by procedures elimhazard and * 
* recover to obtain information on the identification number and location. * 
* of the controls that operate the applicable installed damage control * 


* Systems and equipment. These procedures call procedure sysguide. i 
Me Me OE Xs Me Ns Be fe fe Bs Be cfs he Ne Bs te ee nee cc aug uel ea ea em OS Eee Ne Ee) 


procedure geteduct(needrec : recordptr) ; 


var 
i. integer ,8( Used as an index ~) 


begin | , . 
writeln(’ The compartment can be dewatered using the main drainage system. ); 
Oori:= 1 to numeduct do 


gin 
with eductor(.i.) do 


egin 
# (needrec@.dklevel = dkorlev ) and (needrec@.frame = fr) and 
(needrec@.loctocl = thirdpt) then 
writeln( Valve number ,valvenum, located ‘,location); 
end; (* with *) 
CNG, (eet ma) 
sysguide(1) ; 
end; (*geteduct *) 
el a CeCe, ee NS 72 SE NIE SE RR AE EE) 


procedure getexhaust(needrec : recordptr) ; 
Vie 
ie imteger ; {* used as an index “) 
egin . 
writeln(’ The compartment has an installed exhaust system.’); 
ori:= 1 to numexhfn do 


begin | 
with exhfan(.1.) do 
begin 


18 


if (needrec@.dklevel = dkorlev ) and (needrec@.frame = fr) and 
(needr 


Irec@.loctocl = thirdpt) then 
writeln( Controller number ‘,valvenum,’ located ’,location); 
end; (* with * 
end ;(* for *) 
sysguide(2) ; 
end; — (* getexhaust *) 


CE Rn Pe a ee ee a a 
procedure getactspr( needree erecondpi) = 


var 
1 : mteger : {(* used aS an index) 


egin 
: writeln(’ The compartment contains an active sprinkler system.’); 
fori:= 1 to numactsp do 
begin 
With actspr(.1.) do 
Oo 


in 
if (needrec@.dklevel = dkorlev ) and (needrec@.frame = fr) and 
(needrec@.loctocl = thirdpt) then . 
writeln(’ Valve number ’,valvenum,’ located ‘,location); 
end; (* with *) 
end Ge One 
sysguide(3) ; 
end; (* getactspr *) 
EE ES RE Ee eS er Ne eee 


procedure getspspr(needrec: recordptr) ; 


var 
1 : integer; (* used as an index *) 


begin . 
writeln(’ The compartment contains a dry standpipe sprinkler system. ); 
fori:= 1 to numdysp do 


egin 
we drvstd(.1.) do 
egin 
Ganne cree Onde = dkorlev ) and (needrec@.frame = fr) and 

(needrec@.loctocl = thirdpt) then 

writeln( Valve number ’,valvenum,’ located location); 

endit> with”) 

end ;(* for * 
svsguide(4) ; . 

end;  (* get stand pipe sprinkler *) 


var 
1 : integer 5 (“used as an index”) 


egin 
: writeln(’ The compartment contains a CO2 flooding system..’); 
fori:= 1 to numcofld do 


begin 
with co2fld(.1.) do 


begin 

if (needrec@.dklevel = dkorlev ) and (needrec@.frame = fr) and 

(needrec@.loctocl = thirdpt) then 
writeln(’ Valve number ‘,valvenum,’ located ‘,location); 
end; (* with *) 
ON (ae oa 
sysguide(5) ; 

end; (* getco2fld *) 


(AEE re eee oe Oe 2 Se et ee ake ed) 
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procedure getco2hr(needrec : recordptr) ; 


var 
ence cin MUeedras al IT1deXx —} 


egin . 
writeln(’ The compartment contains a CO2 Hose Reel system.’); 
for1:= 1 to numcohr do 


egin 
with co2hr(.1.) do 


egin 
patie cdree ar anievel = dkorlev ) and (needrec@.frame = fr) and 
(needrec@.loctocl = thirdpt) then 


writeln(’ Valve number ’,valvenum, located ’ location); 
end: (* with *) 
ende i are 2) 


sysguide(6):; | 
end; a getco2hr =) 
ls eee ENE aE aR Rm A Ae) 
procedure getaflfsp(needrec : recordptr) ; 


var 
1 : integer; (* used as an index *) 


egin 
: writeln(’ The compartment contains a AFFF sprinkler system.’); 
fori:= 1 to numafffsp do 


begin 
wah afffspr(.1.) do 


in 
if (needrec@.dklevel = dkorlev ) and (needrec@.frame = fr) and 
(needrec@.loctocl = thirdpt) then . 
writeln(’ Valve number ’,valvenum,’ located ‘,location); 
end; (* with *) 
endo (7 kor =) 
sysguide(9) ; 
Emad. (* getaftisp *) 


rere ae ee 8 NE EE | 
procedure gethalon(needrec : recordptr) ; 


var 
1 : integer; (* used as an index *) 


egin | 
writeln(’ The compartment’s HALON actuators are as follows :’); 
Or1:= I to numhalon do 


egin , 
with halon(.1.) do 


egin 
if (needrec@.dklevel = dkorlev ) and (needrec@.frame = fr) and 
Kee Eee Oct = wovoccleiy) levee 
writeln(’ Actuator ‘,valvenum, located ‘,location); 
end: (* with *) 
end aie for * 
sysguide(7) ; 
if needrec@.usecode = 6 then 
begin. | 
writeln(’ Activate AFFF Bilge sprinkler system. ’); 
etafffsp(needrec),; 


end: 
ena, (* gethalon *) 

em eR eS eR Ee eee) 
procedure gettafes(needrec: recordptr) ; 


var 
meme cer 2 Wsed as an index ~) 


ie 


begin 
writeln(’ The SOE p Non contains a Twin Agent Extinguishing System. ); 


fori:= 1 to numtau do 

begin 

a tausys(.1.) do 
egin 
aE (necdrec ares! = dkorlev ) and (needrec@.frame = fr) and 
(needrec@.loctocl = thirdpt) then 
writeln( Valve number »valvenum, located ‘,location); 
ends (aac: y) - 

end Bf8 Or AAs 

sysguide(8) ; 


end; © (* gettafes *) 


procedure getafffhr(needrec : recordptr) ; 


var 
i : integer; {* used ds an index) 


begin 
- writeln(’ The compartment contains a AFFF Hose Reel system.’); 
fori:= 1 to numaftthr do 


begin | 
with afffhr(.i.) do 
begin 
if (needrec(@.dklevel = dkorlev ) and (needrec@.frame = fr) and 
(needrec@.loctocl = thirdpt) then 
writeln( Valve number ’,valvenum,’ located location); 
end=(- with = 
end. 4" jor > 
svsguide 1) 
end: (> “getatihr =} 


OR SR ER AAR SS ACE AE A Og tay ae a ee ee 


Procedure (elimhazard) Eliminate Hazard. . 
This procedure pheN ec guidance on methods to eliminate the *) 
identified hazard and the use of applicable installed damage ° 
control equipment. = 
VS a AISI calls procedure safeprec and one of the ten GET *) 
SYSTEM 


{ procedures as appropriate. Ke 
ME aT AS A A oe os A Os A A AR 2 Oe 


ae ae ice (90) ae ae 


procedure elimhazard(needrec : recordptr; haztype : emertypes: 
azsource : integer ); 


Var , 
ans :char ;(* used to read in answers from user *) 
systmnum : integer ; (* used to identify installed systems *) 


begi (* start of procedure elimhazd *) 
egin 
~ if haztype = fire then 


egin 
Safeprec( fire, hazsource); 
if Bee ec a) Use cone 10) and (needrec@.usecode > 5) then 
egin 
eamtelne Secure the exhaust ventilation to the space. °); 
PALE EOS): 
ends c(i =.) 


if (needrec@.instalsystems < 3) and (hazsource < 3) then 
writeln(’No appropriate installed systems, use nearest’, 


MITe StatiGigaalee 
if hazsource = 2 then 
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begin 
‘eriteln Use portable FP-180 Foam Proportioner or use ’); 
pets portable PKP extinguishers. ’); 
end; 
end: 


if hazsource = 3 then 
begin . 
if (needrec@.instalsystems < 5) or ((needrec@.instalsvstems > 7) 
and (neédrec(@.instalsvstems <> 11)) then | 
writeln(°No appropriate installed systems, use nearest’, 
4 portable CO2 extinguishers.’) 
end; 


if (needrec@.instalsystems <5) and (hazsource = 4) then 
writeln( NO appropriate installed systems, use nearest’, 
appropriate portable equipment. ): 


case needrec@ .instalsystems of 


oy lienaZsOurce.— 5 then 
getactspr(needrec); 


4: if hazsource < 3 then 
getspspr(needrec); 


>> setcozmad(mecdrec): 


6: begin. 
ienazscurces— i then ane 
writeln(’Use fire station to combat class “A” fire’, 
if possible .’); 
if hazsource = 2 then 
begin, a ae 
writeln(‘Use fire station or Portable PKP ’, 
extinguishers to’); 
writeln(’ combat class “B” fire if possible.’); 


end; 
if hazsource = 4then_. 
writeln('Use CO2 if appropriate to’, 
extinguish the class “D” fire.’); 
getco2hr(needrec), 
end; (* 6 *) 


begin 
: writeln(’ Use the HALON system if the fire is out’, | 
of control or great’); 
writeln(’ hazards to personnel are involved in, 
trying to combat the fire .’); 


ethalon(needrec); 
end: ae) 


8: if hazsource < > 3 then 
egin 
if hazsource = 4 then he <a 
writeln(’ Use TAFES to extinguish class “D" fire’, 
if appropriate. ’); 
gettafes(needrec), 
end 8 ~) 


9 iiaazsource..— 3) then 
getafffsp(needrec); 


10: if hazsource < 3 then 
getafffhr(needrec); 


11 : begin 


writeln(’The compartment contains various ’, | 
firefighting systems. ); 


Vil 


writeln(’ Use the most appropriate system.’); 
= if hazsource =" 4ithen ie 
writeln(’ Use TAFES to extinguish class “D” fire’, 
if appropriate.’); 
if hazsource < > 3 then 
_.. gettafes(needrec); 
if hazsource < 3 then 
begin 
getafllsp(needrec), 
getaffthr(needrec); 
end: 77 ails 
Gene a needrec); 
end; (ee rl a) 


[2 Aeeeine 
if hazsource = 4 then —_ 
writeln(’ Use AFFF to extinguish class ”D” fire’, 
if appropriate. ’); 

getafffhr(needrec); 
if hazsource < > 2 then 

_ geteoZhnr(mMeedree),, 

ena. 12) 


end; (* case instalsystem of *) 
end; (* if fire *) 


if haztype = flooding then 


gin 
safeprec(flooding , hazsource); 
case hazsource of 
i Cn saltwater *). = 
1 CSE Di econ = 1) or (needrec@.pipingcode = 3) then 
writeIn(’ If the source of flooding is the iremain, ); 
writeln(’ isolate the section of firemain.’); 
end; (~ saltwater =) 


tJ 


east freshwater *) 7: 
if (needrec@.pipingcode = 2) or uneeorec@) Pioiir gee. = 3) then 
writeln(’ If the source of flooding is the fresh water ’); 
writeln(’ piping isolate the section of piping. ); 
end; (* freshwater *) 


Us 


: begin. Ve chilled water *) ar 
if (needrec@.pipingcode = 4) or Webstats ock = 12) then 
writeIn(’ If the source of flooding is chilled Water ,’, 
isolate the section of chilled water piping.’); 
ende(= chilled water 4) 


4: care freltoile ae _ 
1 (nec eiee 2 Dec os > 7) and Giese Ce -PInE Ges < 13) thea 
writeIn(’ [f the source of flooding is the fuel system, ’, 
; isolate the section of fuel piping.’); 
end: (= fuelvoil a 
end; (* case hazsource of *) 


if (needrec@.instalsystems < > 1) or (needrec@.instalsystems <> 10) 
or (needrec@).instalsystemns <= | I 
or (needrec@.inStalsvystems < > 12) then 


egin 
‘writela(’No appropriate installed dewatering systems, use portable’); 
writeln( dewa ening equ pea yp 
if hazsource = 4 then , 
F Writeln(’ Do not use a P-250 pump to pump oil or fuel.’); 
en 
else 
begin 
case needrec@.instalsystems of 
L: ener eee 
S: peteductingcenee:: 
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oe SSHNEE TSA 
10 : geteduct(needrec); 


BE: begin 

writeln(’The SSF OR WLC contains various ’, 
ewatering systems. ); 

writeln(’ Use the most appropriate system.’); 

geteduct(needrec); . 

writeln(’ The main circulation Bae for the main’, 
; . condensorecanbe used to.) 

F wateint souatey the bilges of a Main Machinery Room. ’); 
end; (* 1] * 


ae Cleguen(meedrec)); 
end: ecise instalsystem of *) 
end; (* else installed systems *) 


end; (* flooding *) 


if haztvype = fumes then 
egin 
case hazsource of 
ie pee Explosive gases * a 
1 nee rec@.pipingcode = 8) or (needrec@.pipingcode = 12) then 
€gin., , s . ° ® , 
Le A possible source of the fumes is the fuel piping.’); 
pela Isolate all fuel and fuel tank vent lines.’); 
end... | | 
writeln( Use a pneumatic blower to remove explosive gases.’); 
end; (* explosive gases *) 


2: begin, (* Hydrogen Sulfide *) _ 
if (needrec(@.pipingcode = 5) or (needrec@.pipingcode = 6) then 
gin 


e 
eae Close all COV for all soil lines and plumbing’); 
peauteln vents leading to the space.’); 

end; 

end; (* Hydrogen Sulfide *) 


ae psa A Benzine_ * 
i 


(needrec@.instalsystems = 2) or (needrec@.instalsystems = 12) 
Or (needrec@.instalsystems = 11) then 
getexhaust(needrec); 
efdea( Benzine *) 
4: oe Chlorine *) 
if (needrec@.instalsystems = 2) or (needrec@.instalsystems = 12) 
or (needrec@.instalsystems = 11) then 


etexhaust(needrec); 
end; é Chlorine *) 


oy Sea Carbon monoxide ? 
if (needrec@.dklevel > 3) and ( not Besse eninanmngk then 
__ writeln(” Check for nearby open or SOE Ee voids. ); 
if (needrec@.instalsystems = a or (needrec@.instalsystems = 12) 
or (needrec@.instalsystems = 11) then 
etexhaust(needrec); 
end; G Carbon Monoxide “*) 


oO: Sete dle Carbon Dioxide *) 
if (needrec@.instalsystems = 2) or (needrec@.instalsystems = 12) 
or (needrec@.instalsystems = I1) then 
etexhaust(needrec); 
eqgei Carbon Dioxide *) 


end; (* case hazsource of *) 


end ; (* if fumes *) 
end: (* elimhazard *) 
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Procedure Recover f 
This procedure joes guidance on the proper methods to recover. *) 
from the identified. emeTEcley It provides recommended teststo * 
conduct to determine if the compartment 1s safe to enter without * 
breathing devices. The procedure contains procedures ventilate and * 
dewater to provide the control numbers and locations of appropriate *) 


* ventilation and dewatering systems. 
RE a AE ee AS A a AS Ae HR RAE AC A AR IS 


SG Se Gorse ae ae 


procedure recover(needrec : recordptr ; haztype : emertypes); 


var 
ans :char, ;  (* used to read in answers from the user ") 
fumetype : integer ; (* used to determine the type of fumes * 
hazdelim : boolean ; (* used to determine if hazard eliminated *) 


oe ots she ots os fe fs aks fe ote fs fs ots ts Xs fs hs fs ote fe ahs fs ode de fs Ms fs fe fs Me fc fe fe ahs hs ode fe fs fs fs fs ofe ahs of fe ake of of 
procedure ventilate(needrec : recordptr; fumetyp : integer); 


begin . 
writeln; 
if fumetvp = | then 
writeln(’ Recommend use of portable pneumatic blowers to remove ’, 
explosive vapors. ): 
eal eI @ SSNS ems <> 2) and (needrec@.instalsystems < 5 ) then 
egin 
‘writeln(’ No installed exhaust ventilation systems.’); 
writeln(’ Use a portable pneumatic blower or a safety checked , 
Red Devil blower.’); 
end (i) 
else 
etexhaust(needrec); 


writeln; | 
end; (* ventilate *) 
Me Ae oe He Ns of ote ole sks ote ote ahs aie ae ols abe oe ahs ote aft ole fe fe fe of fe fe of ate ate 
procedure dewater(needrec : recordptr ); 


begin . 
writeln; 
if needrec@.usecode = 6 then — 
writeln(’The main circ pump can be used to dewater a Main |, 
“Machinery space.’); _ . 
if (needrec@.instalsystems = 1) or (needrec@.instalsystems > 7) then 
geteduct(needrec) 
elses = 
begin, a -. | | 
Sea No installed dewatering equipment in the space. ); 
writeln(’ Use thoy e pes utilizing the nearest overboard’, 
ischarge’); aie 
writeln(’ Use an eductor if the water contains fuel or debris.’); | 
writeln(’ An electrical submersible pump can be used if the water’); 
writeln(’ is fairly clear of oil and debris. A P-250 pump can be’); | 
writeln(’ used if adequate ventilation to remove exhaust fumes is, 


available.’ ); 
end ; (* else *) 
end ;(* dewater *) 


begi (* start of procedure recover *) 
egin 
if haztype = fire then 


egin 

hazdelim := false ; 

repeat 
writeln; 
writeln(’ Is the fire out ? Y/N’ ); 
writeln; 
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fees hy an 

ies een on ans — 1) then a rome 
writeln(” Continue to combat the fire until it is extinguished.’) 
els 


e 
oat 

1azdelim := true ; 

Wuimetest( needrec, fire, fumetvpe): 

if fumetype = O then 

begin, 
writeln(’ Compartment ’,needrec@.dklevel,’-’,needrec@.frame, 
De eecarce@ lactocl, 1s sale to enter... 

danse Set the reflash watch and overhaul the fire.’); 
writeln; 


else 
begin 
Safeprec(fumes, fumetype); _ . 
writeln(‘Set the reflash watch in OBAs and overhaul the fire.’); 
ventilate(needrec , fumetype); 
end (oc rclse es 
writeln(’ Is the fire overhauled ? Y/N ’); 


writeln; 

oa Celiac a 

if (ans= ‘N’) or ( ans = ’n’) then 
egi 


n 
Le Continue to overhaul the fire . Conduct second ’); 
writeln(’ test when the overhaul 1s completed.’) 


end; 
fumetest( needrec, fire, fumetype); 
if fumetvpe = 0 then 
begin, 
writeln(; Compartment ‘.needrec@.dklevel,’-’,needrec@.frame, 
mee -icedree a loctocl, 1S sale tovemter.. }: 
aaa, No ventilation is needed except for Smoke removal’); 
writeln(’ Does the compartment need to be desmoked ? Y/N’); 
writeln; 
peaO Sy om 
if(ans= “Y’) or ( ans = ‘y’) then 
_ _ventilate(needrec , fumetype); 
Wwriteln: 
en 
elScman 
begin 
Safeprec(fumes, fumetype); 
ventilate(needrec, fumetype); 
Sercndmercise = = () > 
if Osseo insua systeis <> 1) and (needrec@.instalsystems < 9) 
then begin 
writeIn(’Does Compartment ’,needrec@.dklevel,’-’.needrec@.frame, 
- “, needrec@.loctocl, have a significant amount of’): 
writeln(’ water, over two inches, that needs to be removed . ); 
writeln; 
ieee Gols _ 
if (ans= “N') or ( ans = ‘n’) then 
begin, 
writeln(’ Recommend the use of mops and pails to clean up.’); 
putieln ’ Use the closest deck drains to remove the water. : 
en 
else 
dewater(needrec), 
end (* if then begin *) 


e 

dewater(needrec); 

meena: 0. elce tice OUL 7) 
until hazdelim : 

end; (* haztype = fire *) 


els 


if haztype = flooding then 
egin 
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dewater(needrec) ; . ae 

Se Ensure all electrical equipment and wiring is checked out’): 

writeln(’ before restoring electrical power to the compartment. ’); 
end; (* haztype = flooding *) 


if haztvpe = fumes then 


in. | 
writeln(’ Check compartment to ensure fumes are cleared from space. ); 
fumetest(needrec, fumes, fumetype); 

if fumetype = O then 


in 
~ writeln(’ Compartment ‘,needrec@.dklevel,’-’,needrec@.frame, 
. __ - , needrec@.loctocl, is Saremmamemter: ), 
Writeln(’ No ventilation is needed . ’); 
writeln; 


else 


egin 
~ safeprec(fumes, fumetype); 
ventilate(needrec, fumetype); 
end else =. 0 
end; (* haztype = flooding *) 
end ;(~ procedure recover —} 


(**** Start of main procedure natknown sae 


begin 
° ene What 1s the nature of the emergency or problem ? ’ ); 
writeln(’ Enter the appropriate number Below : We 
writeln: 
writeln(’ Fire | = 1): 
writeln( Flooding SP 
writeln{(’ Fumes =3 ): 
Writeln Injury to personnel = 4 ); 
Vor Gel: . 
readin(hazcode 


case hazcode o 
: haztvpe := fire ;_ 
2: haztype := flooding ; 
3: haztvpe:= fumes; . 
4: haztype := personin ; 
Gnd = (7 case.) 


if haztvpe = personin] then 
perinjury(needrec) 
begin 
boundaries(needrec ,haztvpe) ; 
idensource(needrec, haztvpe, Heenan 


elimhazard(needrec, haztype, hazsource); 
recover needrec, haztype 


eng cisca) 


end; (* procedure natknown *) 
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(eee ocant Of wlan ehogram “"***) 


eco rte a ees Re At Re me ee) 
: , * de? ’ 
writeln(’* EVIERGENGY~ aoe 7 
writeln(’* An Expert system to provide, guidance on the operation of *’); 
writeln(’* installed damage control equipment aboard the ship. at 


4 A} 
writeln{’* Answer the given questions and make the appropriate, me 
writeln{’* choices from the presented menus. oy: 
wWriteln PP DT gE ESE EE Neo eX MeN Mea Poe ae eee REA Ak 6”) 
; b] 
wWriteln; 


emerover := false ; 
loadfiles ; 
loaddata ; - 
Sigal Do you want to have the ship’s compartments printed out ? Y/N ’); 
writeln; 
Pee OCI, 7 
if (answer = ) or (answer = ‘y’) then 
printcomp ; 


repeat ; (* Until all emergencies have been handled *) 
getcompnumi(needrec) ; 
Writeln; 
writeln(‘Is the nature of the emergency known ? Y/N ‘); 
Rurite lia: 
eee CENT 7 
if (answer = ‘N’) or (answer = ‘n’) then 
begin 
unkwnature(needrec) ; 
natknown(needrec); 
end 
else 
_ natknown(needrec) ; 
writeln; 


s %, . woe , 
ane Are there any more emergencies or casualities ? Y/N’ ); 
writeln; 


fe be - 
if (answer = 7 Os (answer = ‘n’) then 
emerover := true ; 


until emerover ; 


eaeee4 Program Emergency **) 
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